Método ExchangeUser.GetMemberOfList (Outlook)

Devuelve un objeto de colección AddressEntries que contiene los objetos AddressEntry que representan todas las listas de distribución de Exchange a las que pertenece el usuario.

Sintaxis

expresión. GetMemberOfList

Expresión Variable que representa un objeto ExchangeUser .

Valor devuelto

Objeto de colección AddressEntries que representa la distribución de Exchange se enumera al que pertenece el ExchangeUser. Devuelve un objeto de colección AddressEntries con un recuento de cero (0) si ExchangeUser no es un miembro de ninguna lista de distribución de Exchange.

Comentarios

GetMemberOfList es una operación costosa en términos de rendimiento si no hay una conexión lenta a Exchange Server.

Ejemplo:

El ejemplo de código siguiente muestra cómo obtener los nombres de las listas de distribución de Exchange a la que pertenece el jefe del usuario actual. Utiliza el objeto ExchangeUser para obtener información específica de Exchange usuario como alias del usuario de la cuenta de Exchange, obtener información detallada sobre el administrador del usuario y las listas de distribución que se ha unido el jefe del usuario.

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 

Consulte también

Objeto ExchangeUser

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.