在 Outlook 2010 中从 VBA 访问“发件人：”答案

【问题标题】：Accessing "From:" from VBA in Outlook 2010在 Outlook 2010 中从 VBA 访问“发件人：”
【发布时间】：2020-06-25 17:02:14
【问题描述】：

我在 Outlook 2010 中配置了帐户“me@domain.com”。我撰写了一封邮件并打开了“发件人：”的下拉菜单。我选择“其他电子邮件地址...”并输入“bingo@bongo.com”。我收到一个弹出窗口，询问是否通过“me@domain.com”帐户从“bingo@bongo.com”发送消息。我“好的”。当我现在向“someone@domain.com”发送消息时，收件人会看到

发件人：bingo@bongo.com

奇怪的是，当我去检查 me@domain.com/Sent Items 时，我看到的只是

发件人：me@domain.com

我对这种行为感到非常沮丧，因为我希望根据发送帐户移动已发送的项目。最初，我研究了创建发送规则。令人恼火的是，没有选项可以根据“发件人：”采取任何行动。所以我潜入VBA。我得到了大部分代码来移动这些东西，但是当我查看邮件项目对象（在本地窗口中）时，我找不到任何声明“bingo@bongo.com”的属性。

谁能建议如何从外发邮件中提取回复（我猜是）地址？

这封电子邮件的 Outlook 收件人会看到这很奇怪

发件人：me@domain.com 代表 bingo@bongo.com 发送

但 Outlook 邮件项中的 SendOnBehalf 属性只是读取“me@domain.com”。

非常感谢任何建议。谢谢。

【问题讨论】：

我猜你可以在mailobject.Sender 或mailobject.ReplyRecipients（一个集合）中找到它。他们说什么？
谢谢。发件人说“me@domain.com”，而ReplyRecipients 根本没有任何项目，这很令人惊讶。

标签： vba outlook

【解决方案1】：

尝试像这样设置 SentOnBehalf

Option Explicit

Sub SetSentOnBehalf()

Dim objMsg As MailItem

Set objMsg = Application.CreateItem(0)

objMsg.SentOnBehalfOfName = "bingo@bongo.com"

objMsg.Display

MsgBox " SentOnBehalfOfName in the From: " & objMsg.SentOnBehalfOfName

Set objMsg = Nothing

End Sub

【讨论】：