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

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

  • Статья

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

Синтаксис

выражение. Email1EntryID

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

Замечания

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

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

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 = "http://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

См. также

Объект ContactItem

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

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