通过

列出我的经理所属的组

  • 项目

本主题描述了如何获取当前用户的经理所属的 Exchange 通讯组列表的名称。 它使用 ExchangeUser 对象获取特定的 Exchange 用户信息，例如，用户的 Exchange 帐户别名、有关该用户的经理的详细信息及其所加入的通讯组列表：

  1. 获取当前用户的 ExchangeUser 对象。 使用当前用户的 AddressEntry 对象的 GetExchangeUser 方法获取代表当前用户的 ExchangeUser 对象。

  2. 获取用户的经理已加入的通讯组列表。使用 ExchangeUser 方法 GetExchangeUserManager 和 GetMemberOfList 查找这些分块列表。 使用 ExchangeDistributionList 对象获取有关通讯组列表的详细信息，例如其显示名称。

Sub ShowManagerDistLists() 
 Dim oAE As Outlook.AddressEntry 
 Dim oExUser As Outlook.ExchangeUser 
 Dim oDistListEntries As Outlook.AddressEntries 
 
 'Obtain the AddressEntry for CurrentUser 
 Set oExUser = _ 
 Application.Session.CurrentUser.AddressEntry.GetExchangeUser 
 
 'Obtain distribution lists that the user's manager has joined 
 Set oDistListEntries = oExUser.GetExchangeUserManager.GetMemberOfList 
 For Each oAE In oDistListEntries 
 If oAE.AddressEntryUserType = _ 
 olExchangeDistributionListAddressEntry Then 
 Debug.Print (oAE.name) 
 End If 
 Next 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。