通过

AddressEntry.AddressEntryUserType 属性 (Outlook)

  • 项目

从 OlAddressEntryUserType 枚举中返回一个常量，该常量代表 AddressEntry 的用户类型。 只读。

语法

expression。 AddressEntryUserType

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

备注

AddressEntryUserType 提供用户类型即比 AddressEntry.DisplayType 更精细的粒度级别。 DisplayType 属性不区分具有不同类型的 AddressEntry 的用户，例如具有简单邮件传输协议 (SMTP) 电子邮件地址的 AddressEntry、轻型目录访问协议 (LDAP) 地址、Exchange 用户地址或 Outlook 联系人通讯簿中的 AddressEntry。 所有这些项将作为其 AddressEntry.DisplayTypeolUser 。

示例

下面的代码示例演示如何获取商务电话号码、 办公地点以及 Exchange 全球通讯簿中的所有 Exchange 用户条目的职务。 它第一次使用 AddressList.AddressListType 查找全局地址列表。 由于全局地址列表可以包含多个类型的 Exchange 用户，Exchange 通讯组列表和 Exchange 公用文件夹等项上，每个 AddressEntry 的 设置 ，该代码示例使用 AddressEntryUserType 来验证 AddressEntry 是否表示 Exchange 用户。 它找到的 Exchange 用户后，其获取并打印的用户数据的多个功能。

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 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。