Question

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

来自：bingo@bongo.com

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

来自：me@domain.com

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

有人可以建议如何从外发邮件中提取回复（我猜是）地址吗？

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

，这很奇怪

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

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

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

Answer 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

从Outlook 2010中的VBA访问“表单：”

1 个答案: