Propriété ContactItem.Email3EntryID (Outlook)
Renvoie une valeur de type String qui représente l’ID d’entrée de la troisième entrée de messagerie pour le contact. En lecture seule.
Syntaxe
expression. Email3EntryID
Expression Variable qui représente un objet ContactItem .
Remarques
Cette propriété correspond à la propriété MAPI nommée dispidEmail3OriginalEntryID.
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 Email3EntryID, vous devez obtenir la propriété via l’objet PropertyAccessor renvoyé par la propriété ContactItem.PropertyAccessor , en spécifiant la propriété MAPI PidLidEmail3OriginalEntryId et son espace de noms ID MAPI. L’exemple de code VBA suivant illustre la solution de contournement.
Public Sub GetEmail3EntryID()
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 EMAIL3_ENTRYID As String = "http://schemas.microsoft.com/mapi/id/{00062004-0000-0000-C000-000000000046}/80A50102"
Set objContactFolder = Application.Session.GetDefaultFolder(olFolderContacts)
Set objContactItem = objContactFolder.Items(1)
Set oPA = objContactItem.PropertyAccessor
strEntryID = oPA.BinaryToString(oPA.GetProperty(EMAIL3_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
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.