Método AddressEntry.GetExchangeUser (Outlook)

Retorna um objeto ExchangeUser que representará o AddressEntry se AddressEntry pertence a um objeto AddressList do Exchange como a lista de endereços Global (GAL) e corresponde a um usuário do Exchange.

Sintaxe

expression. GetExchangeUser

Expressão Uma variável que representa um objeto AddressEntry .

Valor de retorno

Um objeto ExchangeUser que representará o AddressEntry. Retornará Null (Nada no Visual Basic) se o objeto AddressEntry não corresponder a um usuário do Exchange.

Comentários

É preciso estar conectado ao servidor Exchange para usar esse método.

Se uma cadeia de caracteres passada usando esse método tem um conjunto de caracteres que é semelhante a uma entrada de endereço existente, o valor de retorno pode incluir uma entrada que é correspondida com base na primeira letra da cadeia de caracteres passada.

Por exemplo, você passa a cadeia de caracteres "Tomada" para um usuário do Exchange que tem uma entrada de endereço "Jai" em seu catálogo de endereços do Outlook, mas não "capturo". Embora a entrada "Capturo" não está disponível no catálogo de endereços do Outlook, o endereço de email retornado é "Jai" em vez de "Nulo".

Exemplo

O exemplo de código a seguir mostra como obter o número de telefone comercial, local do escritório e cargo de todas as entradas de usuário do Exchange na lista de endereços Global do Exchange. Primeiro, ele usa AddressList.AddressListType para encontrar a lista de endereços Global. Para cada AddressEntry em que AddressList, ele usa AddressEntryUserType para verificar se AddressEntry representa um usuário do Exchange. Depois que ele encontra um usuário do Exchange, ele usa GetExchangeUser para obter e imprimir várias partes de dados para o usuário.

Sub DemoAE() 
 
 Dim colAL As Outlook.AddressLists 
 Dim oAL As Outlook.AddressList 
 Dim colAE As Outlook.AddressEntries 
 Dim oAE As Outlook.AddressEntry 
 Dim oExUser As Outlook.ExchangeUser 
 Set colAL = Application.Session.AddressLists 
 
 For Each oAL In colAL 
    'Address list is an Exchange Global Address List 
    If oAL.AddressListType = olExchangeGlobalAddressList Then 
        Set colAE = oAL.AddressEntries 
        
        For Each oAE In colAE 
            If oAE.AddressEntryUserType = olExchangeUserAddressEntry _ 
               Or oAE.AddressEntryUserType = olExchangeRemoteUserAddressEntry Then 
               
                Set oExUser = oAE.GetExchangeUser 
                Debug.Print (oExUser.JobTitle) 
                Debug.Print (oExUser.OfficeLocation) 
                Debug.Print (oExUser.BusinessTelephoneNumber) 
            End If 
        Next 
    End If 
 Next 
 
End Sub

Confira também

Objeto AddressEntry

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.