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.
Comentários
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Enviar e exibir comentários de