Usar Propriedades de Usuário Atuais na Lista de Endereços Global do Microsoft Exchange Server

No código, abra uma sessão de mensagens OLE e faça logon; use a tabela a seguir para referenciar a propriedade que você deseja 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)
Propriedade do Catálogo de Endereços 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

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.