☰

自动将 Outlook 中客户端的电子邮件转发到外部电子邮件

tag-icon • tag-icon microsoft-outlook vba
自动将 Outlook 中客户端的电子邮件转发到外部电子邮件

大家好，

服务器管理员禁用了 Exchange 级别的自动转发功能，因此我有一些 VBA 代码可以将电子邮件转发到外部电子邮件（我的黑莓电子邮件）。我可以使用这个功能，但我想知道，当我在其他帐户上接收电子邮件时，是否有办法在发件人部分看到原始发件人，而不是看到我发送的所有电子邮件？

这是我的代码

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

myFwd.Recipients.Add "[email protected]"
myFwd.Subject = Mid(myFwd.Subject, 4)
myFwd.Save


myFwd.Send
Set myFwd = Nothing
End Sub

答案1

虽然我不是 Outlook 用户，但这篇旧文章提出了一种方法：
OL2000：如何以编程方式设置表单的发件人字段。

也许这可行：

myFwd.SentOnBehalfOfName = Item.SentOnBehalfOfName

我也注意到了这篇文章MailItem 对象MailItem Object的属性SenderName，这也可能有用。

相关内容