Objeto ExchangeUser (Outlook)
Fornece informações detalhadas sobre um AddressEntry que representa um usuário da caixa de correio do Microsoft Exchange.
Comentários
ExchangeUser é derivado do objeto AddressEntry e é retornado no lugar de AddressEntry quando o chamador executa uma interface de consulta no objeto AddressEntry.
Este objeto fornece acesso de primeira classe às propriedades aplicáveis ao usuários do Exchange, como JobTitle, FirstName, LastName e local do escritório. Você também pode acessar outras propriedades específicas do usuário Exchange que não estejam expostas no modelo de objeto, por meio do objeto PropertyAccessor. Observe que algumas das propriedades internas explícitas são propriedades de leitura / gravação. A definição dessas propriedades requer o código está sendo executado em uma conta apropriada de administrador do Exchange; sem permissões suficientes, chamar o método exchangeuser. Update resultará em um erro "permission denied".
Exemplo
O exemplo de código a seguir mostra como obter telefone comercial, sala e cargo de todas as entradas da Lista de Endereços Global do Exchange.
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
Métodos
Propriedades
Confira também
Referência de modelo de objetodo Outlook membros do objeto ExchangeUser
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.
Comentários
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulte https://aka.ms/ContentUserFeedback.
Enviar e exibir comentários de