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
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.