Usar las propiedades del usuario actual de la lista global de direcciones de Microsoft Exchange Server

En el código, abra una sesión de mensajería OLE e inicie una sesión y, a continuación, use la tabla siguiente para hacer referencia a la propiedad que desea usar.

Set olemSession = Application.CreateObject("MAPI.Session") 
ReturnCode = olemSession.Logon( Application.GetNameSpace("MAPI").CurrentUser, "", False, False, 0 ) 
myPage = Item.GetInspector.ModifiedFormPages("Message") 
Set myUser = olemSession.CurrentUser 
Item.UserProperties.Find("Name") = myUser.Name 
Item.UserProperties.Find("Messaging Address") = myUser.Address 
Item.UserProperties.Find("MAPI First Name") = myUser.Fields.item(&h3a06001e)

Propiedad de la libreta de direcciones	Reference
PidTagGivenName	&h3a06001e
PidTagInitials	&h3a0a001e
PidTagSurname	&h3a11001e
PidTag7BitDisplayName	&h39ff001e
PidTagStreetAddress	&h3a29001e
PidTagLocality	&h3a27001e
PidTagStateOrProvince	&h3a28001e
PidTagPostalCode	&h3a2a001e
PidTagCountry	&h3a26001e
PidTagTitle	&h3a17001e
PidTagCompanyName	&h3a16001e
PidTagDepartmentName	&h3a18001e
PidTagOfficeLocation	&h3a19001e
PidTagAssistant	&h3a30001e
PidTagBusinessTelephoneNumber	&h3a08001e

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.