ContactItem.Email2EntryID-Eigenschaft (Outlook)
Gibt eine Zeichenfolge zurück, die die Eintrags-ID des zweiten E-Mail-Eintrags für den Kontakt darstellt. Schreibgeschützt.
Syntax
Ausdruck. Email2EntryID
Ausdruck Eine Variable, die ein ContactItem-Objekt darstellt.
Hinweise
Diese Eigenschaft entspricht der MAPI-Eigenschaft dispidEmail2OriginalEntryID 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 Email2EntryID, abrufen, sollten Sie die Eigenschaft über das PropertyAccessor -Objekt von der ContactItem.PropertyAccessor -Eigenschaft zurückgegeben erhalten angeben der MAPI-Eigenschaft PidLidEmail2OriginalEntryId -Eigenschaft und die MAPI-ID-Namespace. Im folgenden Codebeispiel in VBA zeigt die Umgehung für dieses Problem.
Public Sub GetEmail2EntryID()
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 EMAIL2_ENTRYID As String = "http://schemas.microsoft.com/mapi/id/{00062004-0000-0000-C000-000000000046}/80950102"
Set objContactFolder = Application.Session.GetDefaultFolder(olFolderContacts)
Set objContactItem = objContactFolder.Items(1)
Set oPA = objContactItem.PropertyAccessor
strEntryID = oPA.BinaryToString(oPA.GetProperty(EMAIL2_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
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.