☰

僅在某些情況下自動將 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 運行程式碼即可如果郵件來自某個地址。

相關內容