2

我有 VBA 代码将电子邮件转发到特定帐户。除了被转发的电子邮件具有转发者的电子邮件地址外，它可以工作。

转发电子邮件后，如何保留原始发件人电子邮件地址作为回复？

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

    Set autoFwd = Item.Forward

    autoFwd.Recipients.Add "my_email@domain.com"

    autoFwd.Send

    Set autoFwd = Nothing
End Sub
4

2 回答 2

3

所以有没有办法？真的吗？– 迈克 7 小时前

当 Riking 提到 Outlook 不允许您修改电子邮件中包含的标题时，他是正确的。我猜他指的是.SenderEmailAddress财产。您不能修改 ，.SenderEmailAddress因为此属性是只读的。

话虽如此，您可能还想使用另一个属性。.SentOnBehalfOfName更多细节在这里

主题：SentOnBehalfOfName 属性

链接： http: //msdn.microsoft.com/en-us/library/aa171998%28v=office.11​​%29.aspx

从上面的链接引用

返回一个字符串，指示邮件的预期发件人的显示名称。此属性对应于 MAPI 属性 PR_SENT_REPRESENTING_NAME。读/写。

表达式.SentOnBehalfOfName

表达式 必需。返回 MailItem 对象的表达式。

另请参阅此链接

主题：自动设置新 Outlook 邮件的“发件人”地址

链接：http ://benchristian.wordpress.com/2005/12/18/automatically-setting-the-from-address-of-a-new-outlook-message/

从上面的链接引用

如果您为一组用户使用启用了邮件的公用文件夹或分发列表，并且希望他们发送的邮件回复发送到组 smtp 地址而不是发件人的邮箱，则设置备用回复地址特别有用。

高温高压

于 2012-05-10T14:43:28.630 回答
2

到目前为止，我所看到的一切都支持 Outlook 不允许您修改电子邮件中包含的标题的结论。

对不起。如果您可以选择，我建议您在电子邮件提供商处管理转发。

于 2012-05-10T05:50:08.387 回答