Поиск в глобальном списке адресов - PullRequest
Новая
       37

Поиск в глобальном списке адресов

2 голосов
/ 01 декабря 2011

Есть ли способ поиска только данного NameName или LastName или адреса электронной почты контакта в GAL? В настоящее время у меня есть этот код: 

Private Sub QuickSearch() 'Working!
    Dim oApp As New Outlook.Application
    Dim eu As Outlook.ExchangeUser = oApp.GetNamespace("MAPI").AddressLists("Global Address List").AddressEntries("Justin Timberlake").GetExchangeUser()
    If Not eu Is Nothing Then
        response.write(eu.Name + ": " + eu.Alias + ", " + eu.FirstName + ", " + eu.LastName + ", " + eu.MobileTelephoneNumber + ", " + eu.Department + ", " + eu.PrimarySmtpAddress)
    End If
    oApp.Quit()
End Sub

Ну, этот работает как Быстрый поиск через AddressList GAL. но возникает одна проблема: например, у меня есть эти имена контактов:

- Джастин Бибер

- Джастин Тимберлейк

И я искал Джастин , только Джастин Бибер будет результатом, поскольку он будет первым в списке.

1 Ответ

0 голосов
/ 18 февраля 2013

Вам нужно остановиться на AddressEntries, а затем перебрать список 

    Dim oApp As New Outlook.Application
    Dim aeList As Outlook.AddressEntries = oApp.GetNamespace("MAPI").AddressLists("Global Address List").AddressEntries("Justin Timberlake")
    If Not aeList Is Nothing Then
        For Each ae As Outlook.AddressEntry aeList
            Dim eu As Outlook.ExchangeUser = ae.GetExchangeUser()
            response.write(eu.Name + ": " + eu.Alias + ", " + eu.FirstName + ", " + eu.LastName + ", " + eu.MobileTelephoneNumber + ", " + eu.Department + ", " + eu.PrimarySmtpAddress)
        Next
    End If
...