Notes
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Dans le code, ouvrez une session de messagerie OLE et connectez-vous, puis référencez la propriété que vous souhaitez utiliser en vous aidant du tableau ci-après.
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)
| Propriété du carnet d’adresses | Référence |
|---|---|
| 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 |
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.