Поделиться через

Отображение групп, в которых состоит руководитель

  • Статья

В этом разделе описывается, как получить имена списков рассылки Exchange, к которым принадлежит руководитель текущего пользователя. Объект ExchangeUser используется для получения определенных сведений о пользователе Exchange, таких как псевдоним учетной записи Exchange пользователя, сведения о диспетчере пользователя и списки рассылки, к которым присоединился руководитель пользователя:

  1. Получите объект ExchangeUser текущего пользователя. Используйте метод GetExchangeUser объекта AddressEntry для текущего пользователя, чтобы получить объект ExchangeUser , представляющий текущего пользователя.

  2. Получите списки рассылки, к которым присоединился менеджер пользователя. Используйте методы ExchangeUserGetExchangeUserManager и 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 и обратная связь.