Compartilhar via

Listar os grupos aos quais meu gerente pertence

  • Artigo

Este tópico descreve como obter os nomes das listas de distribuição do Exchange às quais o gerente do usuário atual pertence. Ele usa o objeto ExchangeUser para obter informações específicas do usuário do Exchange, como o alias da conta exchange do usuário, detalhes sobre o gerenciador do usuário e as listas de distribuição ingressadas pelo gerente do usuário:

  1. Obtenha o objeto ExchangeUser do usuário atual. Use o método GetExchangeUser do objeto AddressEntry para o usuário atual para obter o objeto ExchangeUser que representa o usuário atual.

  2. Obtenha as listas de distribuição ingressadas pelo gerente do usuário. Use os métodos ExchangeUserGetExchangeUserManager e GetMemberOfList para encontrar essas listas de distribuição. Use o objeto ExchangeDistributionList para obter mais informações sobre uma lista de distribuição, como seu nome de exibição.

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

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.