Propriété ContactItem.Email1EntryID (Outlook)

Renvoie une valeur de type String qui représente l’ID d’entrée de la première adresse e-mail du contact. En lecture seule.

Syntaxe

expression. Email1EntryID

Expression Variable qui représente un objet ContactItem .

Remarques

Cette propriété correspond à la propriété MAPI nommée dispidEmail1OriginalEntryID.

Si vous obtenez cette propriété dans une solution Microsoft Visual Basic ou Microsoft Visual Basic pour Applications (VBA), en raison de certains problèmes de type, au lieu de référencer directement Email1EntryID, vous devez obtenir la propriété via l’objet PropertyAccessor renvoyé par la propriété ContactItem.PropertyAccessor , en spécifiant la propriété MAPI PidLidEmail1OriginalEntryId et son espace de noms ID MAPI. L’exemple de code VBA suivant illustre la solution de contournement.

Public Sub GetEmail1EntryID() 
 
 Dim objContactFolder As Outlook.Folder 
 
 Dim objContactItem As Outlook.ContactItem 
 
 Dim objRec As Outlook.Recipient 
 
 Dim strEntryID As String 
 
 Dim oPA As Outlook.PropertyAccessor 
 
 Const EMAIL1_ENTRYID As String = "http://schemas.microsoft.com/mapi/id/{00062004-0000-0000-C000-000000000046}/80850102" 
 
 
 
 Set objContactFolder = Application.Session.GetDefaultFolder(olFolderContacts) 
 
 Set objContactItem = objContactFolder.Items(1) 
 
 Set oPA = objContactItem.PropertyAccessor 
 
 strEntryID = oPA.BinaryToString(oPA.GetProperty(EMAIL1_ENTRYID)) 
 
 Debug.Print strEntryID 
 
 Set objRec = Application.Session.GetRecipientFromID(strEntryID) 
 
 If objRec Is Nothing Then 
 
 Debug.Print "GetRecipientFromID failed" 
 
 Else 
 
 Debug.Print objRec.Name 
 
 Debug.Print objRec.EntryID 
 
 End If 
 
 
 
 'Cleanup 
 
 Set objContactItem = Nothing 
 
 Set objContactFolder = Nothing 
 
End Sub

Voir aussi

ContactItem, objet

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.