2

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

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

これは、AddressListGALを介したクイック検索のように機能します。しかし、1つの問題が発生します。たとえば、私は次の連絡先名を持っています。

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

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

そして、ジャスティンを検索しました。リストで最初に表示されるのはジャスティンビーバーだけなので、結果はジャスティンビーバーだけになります。

4

1 に答える 1

0

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
于 2013-02-18T03:27:16.207 に答える