Compartir a través de

Método AddressEntry.GetExchangeUser (Outlook)

  • Artículo

Devuelve un objeto ExchangeUser que representa el objeto AddressEntry si AddressEntry pertenece a un objeto de Exchange AddressList como la lista Global de direcciones (GAL) y corresponde a un usuario de Exchange.

Sintaxis

expresión. GetExchangeUser

Expresión Variable que representa un objeto AddressEntry .

Valor devuelto

Un objeto ExchangeUser que representa el objeto AddressEntry. Devuelve Null (Nothing en Visual Basic) si el objeto AddressEntry no corresponde a un usuario de Exchange.

Comentarios

Es preciso estar conectado al servidor de Exchange para utilizar este método.

Si una cadena que se pasa mediante este método tiene un juego de caracteres es similar a una entrada de dirección existente, el valor devuelto puede incluir una entrada que se cumple según la primera letra de la cadena pasada.

Por ejemplo, se pasa la cadena "Jack" para un usuario de Exchange que tiene una entrada de dirección "Jai" en su libreta de direcciones de Outlook, pero no "Jack". Aunque la entrada "Jack" no está disponible en la libreta de direcciones de Outlook, la dirección de correo electrónico devuelta es "Jai" en lugar de "Null".

Ejemplo:

El ejemplo de código siguiente muestra cómo obtener el número de teléfono profesional, la ubicación de la oficina y el puesto de todas las entradas de usuario de Exchange en la lista Global de direcciones de Exchange. En primer lugar, utiliza AddressList.AddressListType para buscar la lista Global de direcciones. Para cada AddressEntry de ese objeto AddressList, se utiliza AddressEntryUserType para comprobar si AddressEntry representa un usuario de Exchange. Después de que se encuentra un usuario de Exchange, se utiliza GetExchangeUser para obtener e imprimir las distintas partes de datos para el usuario.

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

Consulte también

Objeto AddressEntry

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.