전체 주소 목록을 통해 검색

Question

GAL에서 연락처의 givenName 또는 성 또는 전자 메일 주소 만 검색하는 방법이 있습니까? 현재 다음 코드를 가지고 있습니다.

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 

주소록 GAL을 통한 빠른 검색처럼 작동합니다. 하지만 발생 하나 문제는 예를 들어 나는이 연락처 이름을 가지고있다 : - 저스틴 비버 (Justin Bieber)

-

저스틴 팀버레이크

을 그리고 난 저스틴검색 만 저스틴 비버 (Justin Bieber) 것 결과가 목록에 표시되는 첫 번째 결과가됩니다.

Answer 1

당신은는 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