Свойство ContactItem.Email3EntryID (Outlook)

Статья
04/07/2023

Возвращает строку, представляющую идентификатор записи третьей записи электронной почты для контакта. Только для чтения.

Синтаксис

выражение. Email3EntryID

Выражение Переменная, представляющая объект ContactItem .

Замечания

Это свойство соответствует свойству MAPI с именем dispidEmail3OriginalEntryID.

Если вы получаете это свойство в решении Microsoft Visual Basic или Microsoft Visual Basic для приложений (VBA), из-за некоторых проблем с типом вместо прямой ссылки на Email3EntryID, следует получить свойство через объект PropertyAccessor, возвращенный свойством ContactItem.PropertyAccessor, указав свойство MAPI PidLidEmail3OriginalEntryIdId. свойство и пространство имен идентификатора MAPI. В следующем примере кода в VBA показано обходное решение.

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

См. также

Объект ContactItem

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через