AddressEntry.GetExchangeUser 方法 (Outlook)

  • 项目

返回一个 ExchangeUser 对象，代表 AddressEntryAddressEntry 属于 Exchange 设置 对象如全局地址列表 (GAL) 中，对应于 Exchange 用户。

语法

expression。 GetExchangeUser

表达 一个代表 AddressEntry 对象的变量。

返回值

代表 AddressEntryExchangeUser 对象。 如果 AddressEntry 对象不对应于 Exchange 用户，则返回 Null (Visual Basic) 中的 Nothing。

备注

您必须连接到 Exchange 服务器才能使用此方法。

如果使用此方法传递一个字符串字符集，则类似于现有的地址条目，则返回值可能包括根据传递的字符串的第一个字母相匹配的条目。

例如，您传递字符串"插座"Exchange 用户都具有一个地址条目"Jai"在他的 Outlook 通讯簿，但不是"插座"。 尽管"插座"条目不是 Outlook 通讯簿中，则返回电子邮件地址是"Jai"而不是"空"。

示例

下面的代码示例演示如何获取商务电话号码、 办公地点以及 Exchange 全球通讯簿中的所有 Exchange 用户条目的职务。 它第一次使用 AddressList.AddressListType 查找全局地址列表。 对于该 设置 在每个 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。