This documentation is archived and is not being maintained.

How to: List the Groups that My Manager Belongs to

Office 2007

This topic describes how to obtain the names of the Exchange distribution lists that the manager of the current user belongs to. It uses the ExchangeUser object to obtain specific Exchange user information such as the user's Exchange account alias, details about the user's manager, and the distribution lists that the user's manager has joined:

  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. Obtain the distribution lists that the user's manager has joined.

    Use the ExchangeUser methods GetExchangeUserManager and GetMemberOfList to find these distribtution lists. Use the ExchangeDistributionList object to obtain further information about a distribution list, such as its display name.

Sub ShowManagerDistLists()
    Dim oAE As Outlook.AddressEntry
    Dim oExUser As Outlook.ExchangeUser
    Dim oDistListEntries As Outlook.AddressEntries
    'Obtain the AddressEntry for CurrentUser
    Set oExUser = _
    '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 (
        End If
End Sub