Propriedade AddressEntry.AddressEntryUserType (Outlook)

Retorna uma constante da enumeração OlAddressEntryUserType que representa o tipo de usuário de AddressEntry. Somente leitura.

Sintaxe

expression. AddressEntryUserType

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

Comentários

AddressEntryUserType fornece um nível de granularidade para tipos de usuário que seja menor do que AddressEntry.DisplayType. A propriedade DisplayType não distingue os usuários com diferentes tipos de AddressEntry, como um AddressEntry que tem um endereço de email SMTP (Simple Mail Transfer Protocol), um endereço LDAP (Protocolo de Acesso ao Diretório Leve), um endereço de usuário do Exchange ou um AddressEntry no Catálogo de Endereços de Contatos do Outlook. Todos esses inteiros tem olUser como seus AddressEntry.DisplayType.

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. Desde que a lista de endereços Global pode conter vários tipos de entradas como usuário do Exchange, lista de distribuição do Exchange e pastas públicas do Exchange, para cada AddressEntry em que o AddressList, o exemplo de código usa AddressEntryUserType para verificar se AddressEntry representa um usuário do Exchange. Depois que ele encontra um usuário do Exchange, ele obtém e imprime 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 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.