Método ExchangeUser.GetMemberOfList (Outlook)
Retorna um objeto da coleção AddressEntries que contém os objetos AddressEntry que representam todas as listas de distribuição do Exchange às quais o usuário pertence.
Sintaxe
expression. GetMemberOfList
Expressão Uma variável que representa um objeto ExchangeUser .
Valor de retorno
Lista de um objeto da coleção AddressEntries que representa a distribuição do Exchange ao qual pertence o ExchangeUser. Retorna um objeto da coleção AddressEntries com uma contagem de zero (0) se ExchangeUser não for um membro de qualquer lista de distribuição do Exchange.
Comentários
GetMemberOfList será uma operação morosa em termos de desempenho se houver uma conexão lenta com o Exchange Server.
Exemplo
O exemplo de código a seguir mostra como obter os nomes das listas de distribuição do Exchange ao qual pertence o gerente do usuário atual. Ele usa o objeto ExchangeUser para obter Exchange usuário informações específicas, como o alias de conta do Exchange do usuário, detalhes sobre o gerente do usuário e as listas de distribuição que o gerente do usuário que tenha ingressado.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.