ExchangeUser (objeto)

Importante

Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

Proporciona información detallada sobre un objeto AddressEntry que representa un usuario de buzón de correo de Microsoft Exchange.

Información de la versión

Versión agregada: Outlook 2007

Notas

ExchangeUserse deriva del objeto AddressEntry y se devuelve en lugar de AddressEntry cuando el llamador realiza una interfaz de consulta en el objeto AddressEntry.

Este objeto proporciona acceso de primera clase a las propiedades aplicables a los usuarios de Exchange como, por ejemplo, FirstName, JobTitle, **LastName**y OfficeLocation. También puede tener acceso a otras propiedades específicas del usuario de Exchange que no se exponen en el modelo de objetos a través del objeto PropertyAccessor . Tenga en cuenta que algunas de las propiedades integradas explícitas son las propiedades de lectura y escritura. Al establecer estas propiedades requiere que el código se está ejecutando bajo una cuenta de administrador de Exchange apropiada; sin los permisos necesarios, llamando al método ExchangeUser.Update se producirá un error "permiso denegado".

Ejemplo

En el ejemplo siguiente de código se 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 la Exchange Global Address List (Lista global de direcciones de 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

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.