我有 VBA 代码将电子邮件转发到特定帐户。它可以工作,除非转发的电子邮件具有转发者的电子邮件地址。
邮件转发后如何保留原来的发件人邮箱地址作为回复?
Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim autoFwd As Outlook.MailItem
Set autoFwd = Item.Forward
autoFwd.Recipients.Add "[email protected] /cdn-cgi/l/email-protection"
autoFwd.Send
Set autoFwd = Nothing
End Sub
那么有没有办法呢?真的吗? – 迈克 7 小时前
Riking 提到 Outlook 不允许您修改电子邮件中包含的标题,这是正确的。我猜他指的是.SenderEmailAddress
财产。您不能修改.SenderEmailAddress
因为该属性是只读的。
话虽如此,您可能还想使用另一个属性。.SentOnBehalfOfName
更多详情请点击这里
主题:SentOnBehalfOfName 属性
Link: http://msdn.microsoft.com/en-us/library/aa171998%28v=office.11%29.aspx http://msdn.microsoft.com/en-us/library/aa171998%28v=office.11%29.aspx
引用上述链接
返回一个字符串,指示邮件消息的预期发件人的显示名称。此属性对应于 MAPI 属性 PR_SENT_REPRESENTING_NAME。读/写。
表达式.SentOnBehalfOfName
表达式 必填。返回 MailItem 对象的表达式。
另请参阅此链接
主题:自动设置新 Outlook 邮件的“发件人”地址
Link: http://benchristian.wordpress.com/2005/12/18/automatically-setting-the-from-address-of-a-new-outlook-message/ http://benchristian.wordpress.com/2005/12/18/automatically-setting-the-from-address-of-a-new-outlook-message/
引用上述链接
如果您正在为一组用户使用已启用邮件的公用文件夹或通讯组列表,并且希望将他们发送的邮件的回复发送到组 smtp 地址而不是发件人的邮箱,则设置备用回复地址特别有用。
HTH
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)