Question

我有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

Answer 1

所以没办法？真？ - Mike 7小时前

当他提到Outlook不会让你修改电子邮件中包含的标题时，Riking是正确的。我猜他正在引用.SenderEmailAddress财产。您无法修改.SenderEmailAddress，因为此属性是只读的。

说过你可以使用另一种房产。 .SentOnBehalfOfName此处有更多详情

主题：SentOnBehalfOfName属性

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

从以上链接引用

返回一个String，指示邮件消息的目标发件人的显示名称。此属性对应于MAPI属性PR_SENT_REPRESENTING_NAME。读/写。

expression.SentOnBehalfOfName

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

另见此链接

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

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

从以上链接引用

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

HTH

Answer 2

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

对不起。我建议您在电子邮件提供商处管理前锋，如果这是您的选择。

Outlook自动转发设置回复原始发件人而不是转发器

2 个答案: