ContactItem.EntryID property (Outlook)

  • Artikel

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.

HinwBemerkungeneise

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

ContactItem-Objekt

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.