ContactItem.Email3EntryID Property (Outlook)

Office 2013 and later

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

Returns a String representing the entry ID of the third e-mail entry for the contact. Read-only.

expression .Email3EntryID

expression A variable that represents a ContactItem object.

This property corresponds to the MAPI named property dispidEmail3OriginalEntryID.

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 Email3EntryID, you should get the property through the PropertyAccessor object returned by the ContactItem.PropertyAccessor property, specifying the MAPI property PidLidEmail3OriginalEntryId property and its MAPI id namespace. The following code sample in VBA shows the workaround.

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 = "{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" 
 Debug.Print objRec.Name 
 Debug.Print objRec.EntryID 
 End If 
 Set objContactItem = Nothing 
 Set objContactFolder = Nothing 
End Sub