如何获取 Outlook 邮件的发件人

Question

我有一些代码可以部分填充电子邮件作为回复。但是除非他们在（一个/我们的）上，否则我无法得到发件人？交换服务器。

Public Sub CreateMessage()

Dim EmailFrom As String
Dim NewMessage As Outlook.MailItem
Dim OldMessage As Outlook.MailItem


Set OldMessage = Application.ActiveInspector.CurrentItem
Set NewMessage = Application.CreateItem(olMailItem)
EmailFrom = OldMessage.Sender.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x39FE001E")
NewMessage.Body = Body(EmailFrom)
NewMessage.HTMLBody = HTMLBody(EmailFrom)
NewMessage.Recipients.Add (EmailFrom)
NewMessage.Display
Set NewMessage = Nothing

End Sub

我收到的消息是“属性“http://schemas.microsoft.com/mapi/proptag/0x39FE001E”未知或找不到。”它似乎只适用于内部消息。

有人知道在 Outlook VBA 中获取适用于所有人的邮件发件人的方法吗？

---

基于 Dimitry 的 cmets 修复：

Public Sub CreateMessage()

Dim EmailFrom As String
Dim NewMessage As Outlook.MailItem
Dim OldMessage As Outlook.MailItem


Set OldMessage = Application.ActiveInspector.CurrentItem
Set NewMessage = Application.CreateItem(olMailItem)
Select Case OldMessage.SenderEmailType
    Case "EX"
        EmailFrom = OldMessage.Sender.GetExchangeUser.PrimarySmtpAddress
    Case Else
        EmailFrom = OldMessage.SenderEmailAddress
End Select
NewMessage.Body = Body(EmailFrom)
NewMessage.HTMLBody = HTMLBody(EmailFrom)
NewMessage.Recipients.Add (EmailFrom)
NewMessage.Display
Set NewMessage = Nothing

End Sub

Answer 1

您正在请求特定于 Exchange 的 PR_SMTP_ADDRESS 属性。检查SenderEmailType 是否为“EX”，然后才读取PR_SMTP_ADDRESS 属性。否则，只需阅读 MailItem.SenderEmailAddress 属性即可。

查看带有OutlookSpy 的消息（单击IMessage）以查看可用属性。