Свойство MailItem.ReceivedByEntryID (Outlook)
Возвращает строку, представляющую EntryID для истинного получателя, заданного поставщиком транспорта, доставляющим почтовое сообщение. Только для чтения.
Синтаксис
выражение. ReceivedByEntryID
Выражение Переменная, представляющая объект MailItem .
Замечания
Это свойство соответствует свойству MAPI PidTagReceivedByEntryId.
Если вы получаете это свойство в решении Microsoft Visual Basic или Microsoft Visual Basic для приложений (VBA), из-за некоторых проблем с типом вместо прямой ссылки на ReceivedByEntryID, необходимо получить свойство через объект PropertyAccessor, возвращенный свойством MailItem.PropertyAccessor, указав свойство PidTagReceivedByEntryId и его протаг MAPI Пространства имен. В следующем примере кода в VBA показано обходное решение.
Public Sub GetReceiverEntryID()
Dim objInbox As Outlook.Folder
Dim objMail As Outlook.MailItem
Dim oPA As Outlook.PropertyAccessor
Dim strEntryID As String
Const PidTagReceivedByEntryId As String = "http://schemas.microsoft.com/mapi/proptag/0x003F0102"
Set objInbox = Application.Session.GetDefaultFolder(olFolderInbox)
Set objMail = objInbox.Items(1)
Set oPA = objMail.PropertyAccessor
strEntryID = oPA.BinaryToString(oPA.GetProperty(PidTagReceivedByEntryId))
Debug.Print strEntryID
Set objInbox = Nothing
Set objMail = Nothing
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.