ContactItem.Email3EntryID-Eigenschaft (Outlook)

  • Artikel

Gibt eine Zeichenfolge zurück, die die Eintrags-ID des dritten E-Mail-Eintrags für den Kontakt darstellt. Schreibgeschützt.

Syntax

Ausdruck. Email3EntryID

Ausdruck Eine Variable, die ein ContactItem-Objekt darstellt.

HinwBemerkungeneise

Diese Eigenschaft entspricht der MAPI-Eigenschaft dispidEmail3OriginalEntryID Namens.

Wenn Sie diese Eigenschaft in einem Microsoft Visual Basic oder Microsoft Visual Basic für Applikationen (VBA)-Lösung durch einige Geben Sie Probleme, anstatt direkt verweisen auf Email3EntryID, abrufen, sollten Sie die Eigenschaft über das PropertyAccessor -Objekt von der ContactItem.PropertyAccessor -Eigenschaft zurückgegeben erhalten angeben der MAPI-Eigenschaft PidLidEmail3OriginalEntryId -Eigenschaft und die MAPI-ID-Namespace. Im folgenden Codebeispiel in VBA zeigt die Umgehung für dieses Problem.

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

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.