Auflisten der Gruppen, zu denen Mein Vorgesetzter gehört

In diesem Thema wird beschrieben, wie die Namen der Exchange-Verteilerlisten abgerufen werden, zu denen der Vorgesetzte des aktuellen Benutzers gehört. Es verwendet das ExchangeUser-Objekt , um bestimmte Exchange-Benutzerinformationen wie den Exchange-Kontoalias des Benutzers, Details zum Vorgesetzten des Benutzers und die Verteilerlisten abzurufen, denen der Vorgesetzte des Benutzers beigetreten ist:

1. Obtain the current user's ExchangeUser object. Use the GetExchangeUser method of the AddressEntry object for the current user to get the ExchangeUser object that represents the current user.

2. Rufen Sie die Verteilerlisten ab, denen der Vorgesetzte des Benutzers beigetreten ist. Verwenden Sie die ExchangeUser-MethodenGetExchangeUserManager und GetMemberOfList , um diese Distribtutionslisten zu finden. Verwenden Sie das ExchangeDistributionList-Objekt , um weitere Informationen zu einer Verteilerliste abzurufen, z. B. den Anzeigenamen.

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 

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.