☰

仅在某些情况下自动将 Outlook 电子邮件转发给外部

tag-icon • tag-icon email microsoft-outlook vba
仅在某些情况下自动将 Outlook 电子邮件转发给外部

是否可以对提供的 VBA 代码进行修改此回复之前的帖子中提到，只转发来自特定电子邮件地址的电子邮件，而不是转发所有内容？本质上，模仿 Outlook 自动转发规则，条件是只转发来自[电子邮件保护]被发送了？

我编写了一些 VBA 脚本来执行此操作“绕过服务器禁用自动转发”。基本上，它模仿用户转发电子邮件，而不是服务器进行自动转发。详细说明超出了本文的范围，但这里有一个摘要：

在 Outlook 的 Visual Basic 编辑器中添加上述代码（Alt-F11 应该可以开始）。务必更改[电子邮件保护]到您希望邮件发送到的地址

告诉 Outlook 对每封入站消息运行此代码（工具 -> 规则和警报 -> 新规则 -> 消息到达时检查 -> 下一步 -> 是 -> 复选框“运行脚本”-> 然后选择刚刚创建的脚本。

现在 Outlook 应该会自动转发您收到的每封电子邮件，但不会被管理员作为“自动转发”阻止。

代码：

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.Send
Set myFwd = Nothing 
End Sub

答案1

尝试if使用添加语句发件人地址-

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

Set myFwd = Item.Forward

If myFwd.Sender = "[email protected]" then
myFwd.Recipients.Add "[email protected]"
myFwd.Send
End if

Set myFwd = Nothing 
End Sub

或者更简单的方法，制定规则：

告诉 Outlook 对每封入站消息运行此代码（工具 -> 规则和警报 -> 新规则 -> 消息到达时检查 -> 下一步 -> 是 -> 复选框“运行脚本”-> 然后选择刚刚创建的脚本。

只需告诉 Outlook 运行代码如果消息来自某个地址。

相关内容