Propriété ContactItem.EntryID (Outlook)
Renvoie une valeur de type String qui représente l’identificateur Entry unique de l’objet. En lecture seule.
Syntaxe
expression. EntryID
Expression Variable qui représente un objet ContactItem .
Remarques
Cette propriété correspond à la propriété PidTagEntryId.
Un fournisseur de banque MAPI attribue une chaîne d’ID unique lors de la création d’un élément dans sa banque. Par conséquent, la propriété EntryID n’est pas définie pour un élément Outlook avant l’enregistrement ou l’envoi. La propriété EntryID change lorsqu’un élément est déplacé vers une autre banque, par exemple, depuis votre Boîte de réception vers un dossier public Microsoft Exchange Server ou depuis un fichier de dossiers personnels (.pst) vers un autre fichier .pst. Les solutions ne doivent pas dépendre de la propriété EntryID pour être uniques, sauf si les éléments ne doivent pas être déplacés. La propriété EntryID renvoie une propriété EntryID MAPI à long terme. Pour plus d’informations sur les ID d’entréeà long et à court terme, recherchez PidTagEntryId dans Microsoft Learn.
Exemple
Cet exemple Visual Basic pour Applications (VBA) utilise la propriété EntryID pour comparer l’ID d’entrée d’un contact à l’ID d’entrée d’un contact retourné par une opération de recherche afin de déterminer si les objets représentent le même contact. Remplacez ce nom par un nom de contact valide dans votre dossier Contacts avant d’exécuter cet exemple.
Sub UseEntryID()
Dim myNamespace As Outlook.NameSpace
Dim myContacts As Outlook.Folder
Dim myItem1 As Outlook.ContactItem
Dim myItem2 As Outlook.ContactItem
Set myNameSpace = Application.GetNamespace("MAPI")
Set myContacts = myNameSpace.GetDefaultFolder(olFolderContacts)
Set myItem1 = myContacts.Items.Find("[FirstName] = ""Dan""")
Set myitem2 = myContacts.Items.Find("[FileAs] = ""Wil"" and [FirstName] = ""Dan""")
If Not TypeName(myitem2) = "Nothing" Then
If myItem1.EntryID = myitem2.EntryID Then
MsgBox "These two contact items refer to the same contact."
End If
Else
MsgBox "The contact items were not found."
End If
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.