ExchangeUser 对象 (Outlook)
提供有关代表 Microsoft Exchange 邮箱用户的 AddressEntry 的详细信息。
备注
ExchangeUser 从 AddressEntry 对象中，并 AddressEntry 对象上的调用方执行查询接口时将返回而不是 AddressEntry 。
该对象提供一类访问属性适用于 Exchange 用户 名字 、 职务 、 姓氏 和 办公室 等。 您还可以访问其他不会通过 PropertyAccessor 对象的对象模型中公开的属性特定于 Exchange 用户。 请注意，某些显式的内置属性是读写属性。 设置这些属性要求代码运行使用相应的 Exchange 管理员帐户;如果没有足够的权限，调用 ExchangeUser.Update 方法将导致一个"权限被拒绝"错误。
示例
下面的代码示例演示如何获取“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
方法
属性
另请参阅
ExchangeUser 对象成员Outlook 对象模型参考
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。