ContactItem.EntryID property (Outlook)
Gibt eine Zeichenfolge zurück, die eindeutige Eintrags-ID des Objekts darstellt. Schreibgeschützt.
Syntax
Ausdruck. EntryID
Ausdruck Eine Variable, die ein ContactItem-Objekt darstellt.
Hinweise
Diese Eigenschaft entspricht der MAPI-Eigenschaft PidTagEntryId.
Ein Anbieter für MAPI-Informationsspeicher weist eine Zeichenfolge mit einem eindeutigen Bezeichner zu, wenn ein Element in diesem Informationsspeicher erstellt wird. Aus diesem Grund wird die EntryID-Eigenschaft für ein Outlook-Element erst festgelegt, wenn es gespeichert oder gesendet wird. Die Eintrags-ID ändert sich, wenn ein Element in einen anderen Informationsspeicher verschoben wird, z. B. vom Ordner Posteingang zu einem öffentlichen Ordner in Microsoft Exchange Server oder aus einer Datei für den Persönlichen Ordner (PST) in eine andere PST-Datei. Lösungen sollten nicht davon abhängen, ob die EntryID-Eigenschaft eindeutig ist, es sei denn, Elemente werden nicht verschoben. Die EntryID-Eigenschaft gibt eine langfristige MAPI-Eintrags-ID zurück. Weitere Informationen zu langfristigen und kurzfristigen EntryIDsfinden Sie in Microsoft Learn nach PidTagEntryId.
Beispiel
Visual Basic für Applikationen (VBA) verwendet die EntryID -Eigenschaft zum Vergleichen von eigenständigen die Eintrags-ID eines Kontakts mit der Eintrags-ID eines Kontakts von einem Suchvorgang zurückgegeben, zu bestimmen, ob die Objekte den gleichen Kontakt darstellen. Ersetzen Sie vor dem Ausführen dieses Beispiels den Namen durch einen gültigen Kontaktnamen in Ihrem Ordner Kontakte.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.