Propiedad AddressEntry.AddressEntryUserType (Outlook)
Devuelve una constante de la enumeración OlAddressEntryUserType que representa el tipo de usuario del objeto AddressEntry. Solo lectura.
Sintaxis
expresión. AddressEntryUserType
Expresión Variable que representa un objeto AddressEntry .
Comentarios
AddressEntryUserType proporciona un nivel de granularidad para los tipos de usuario más fino que el de AddressEntry.DisplayType. La propiedad DisplayType no distingue a los usuarios con diferentes tipos de AddressEntry, como un AddressEntry que tiene una dirección de correo electrónico del Protocolo simple de transferencia de correo (SMTP), una dirección de protocolo ligero de acceso a directorios (LDAP), una dirección de usuario de Exchange o una direcciónEntry en la Libreta de direcciones de contactos de Outlook. Estas entradas tienen olUser como sus AddressEntry.DisplayType.
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 se usa List para buscar la lista Global de direcciones. Dado que la lista Global de direcciones puede contener varios tipos de entradas, como usuario de Exchange, lista de distribución de Exchange y carpeta pública de Exchange para cada AddressEntry de la AddressList, el ejemplo de código se utiliza AddressEntryUserType para comprobar si AddressEntry representa un usuario de Exchange. Después de que se encuentra un usuario de Exchange, obtiene e imprime 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 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
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.