グローバルアドレス一覧から検索

Question

GALの連絡先のgivenNameまたはLastNameまたはemailaddressのみを検索する方法はありますか？現在、私はこれらのコードを持っている：

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 

さて、この1つはAddressListをGALて、クイック検索のように動作します。しかし、1つの問題が発生は、例えば、私はこれらの連絡先の名前を持っているということです。

- ジャスティン・ビーバー

- ジャスティン・ティンバーレイク

そして、私は唯一のジャスティン・ビーバー意志ジャスティン、検索結果はリストに表示される最初のものです。

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