列出我的經理所屬的群組

這個主題會說明如何取得目前使用者之主管所屬的 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 支援與意見反應。