ContactItem.Email1EntryID Property (Outlook)
Returns a String representing the entry ID of the first e-mail address for the contact. Read-only.
Syntax
expression .Email1EntryID
expression A variable that represents a ContactItem object.
Remarks
This property corresponds to the MAPI named property dispidEmail1OriginalEntryID.
If you are getting this property in a Microsoft Visual Basic or Microsoft Visual Basic for Applications (VBA) solution, owing to some type issues, instead of directly referencing Email1EntryID, you should get the property through the PropertyAccessor object returned by the ContactItem.PropertyAccessor property, specifying the MAPI property PidLidEmail1OriginalEntryId property and its MAPI id namespace. The following code sample in VBA shows the workaround.
Public Sub GetEmail1EntryID()
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 EMAIL1_ENTRYID As String = "https://schemas.microsoft.com/mapi/id/{00062004-0000-0000-C000-000000000046}/80850102"
Set objContactFolder = Application.Session.GetDefaultFolder(olFolderContacts)
Set objContactItem = objContactFolder.Items(1)
Set oPA = objContactItem.PropertyAccessor
strEntryID = oPA.BinaryToString(oPA.GetProperty(EMAIL1_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