Mostrar la lista de grupos a los que pertenece el administrador

En este tema se describe cómo obtener los nombres de las listas de distribución de Exchange a las que pertenece el jefe del usuario actual. Se utiliza el objeto ExchangeUser para obtener información específica del usuario de Exchange, como el alias de su cuenta de Exchange, los detalles sobre su jefe y las listas de distribución a las que se ha unido este último:

1. Obtenga el objeto ExchangeUser del usuario actual. Utilice el método GetExchangeUser del objeto AddressEntry del usuario actual para obtener el objeto ExchangeUser que representa al usuario actual.

2. Obtenga las listas de distribución a las que se ha unido el jefe del usuario.Utilice los métodos GetExchangeUserManager y GetMemberOfList de ExchangeUser para buscar estas listas de distribución. Utilice el objeto ExchangeDistributionList para obtener más información sobre una lista de distribución, como su nombre para mostrar.

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 

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.