AddressEntry.GetExchangeUser 方法 (Outlook)

會傳回ExchangeUser物件，如果AddressEntry屬於 Exchange AddressList物件，例如全域通訊清單 (GAL) ，並且對應至 Exchange 使用者，則代表AddressEntry。

語法

expression。 GetExchangeUser

表達 代表 AddressEntry 物件的 變數。

傳回值

表示 AddressEntry 的 ExchangeUser 物件。 如果AddressEntry物件未對應至 Exchange 使用者，則會在 Visual Basic) 中傳回Null (Nothing。

註解

您必須連線到 Exchange Server 才能使用這個方法。

如果使用這個方法傳遞的字串具有類似于現有位址專案的字元集，傳回值可能會包含根據傳遞之字串的第一個字母進行比對的專案。

例如，您為 Outlook 通訊錄中有位址專案 「Jai」 但未在 「Jack」 中的 Exchange 使用者傳遞字串 「Jack」。 雖然 Outlook 通訊錄中無法使用 「Jack」 專案，但傳回的電子郵件地址是 「Jai」，而不是 「Null」。

範例

在下列程式碼範例中，會顯示如何取得 Exchange 全域通訊清單中所有 Exchange 使用者項目的商務電話號碼、辦公室位置及職稱。 它會先使用 AddressList.AddressListType 來尋找全域通訊清單。 針對該AddressList上的每個AddressEntry，它會使用AddressEntryUserType來驗證AddressEntry是否代表 Exchange 使用者。 找到 Exchange 使用者之後，它會使用 GetExchangeUser 來取得並列印使用者的各種資料片段。

Sub DemoAE() 
 
 Dim colAL As Outlook.AddressLists 
 Dim oAL As Outlook.AddressList 
 Dim colAE As Outlook.AddressEntries 
 Dim oAE As Outlook.AddressEntry 
 Dim oExUser As Outlook.ExchangeUser 
 Set colAL = Application.Session.AddressLists 
 
 For Each oAL In colAL 
    'Address list is an Exchange Global Address List 
    If oAL.AddressListType = olExchangeGlobalAddressList Then 
        Set colAE = oAL.AddressEntries 
        
        For Each oAE In colAE 
            If oAE.AddressEntryUserType = olExchangeUserAddressEntry _ 
               Or oAE.AddressEntryUserType = olExchangeRemoteUserAddressEntry Then 
               
                Set oExUser = oAE.GetExchangeUser 
                Debug.Print (oExUser.JobTitle) 
                Debug.Print (oExUser.OfficeLocation) 
                Debug.Print (oExUser.BusinessTelephoneNumber) 
            End If 
        Next 
    End If 
 Next 
 
End Sub

另請參閱

AddressEntry 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。