次の方法で共有

自分の管理者が属するグループを一覧表示する

  • [アーティクル]

このトピックでは、現在のユーザーのマネージャーが属する 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 のサポートおよびフィードバックを参照してください。