在 Outlook 中轉發電子郵件後如何自動將其移動到特定文件夾

Outlook解決方案 2025 年 9 月 29 日

為了讓您的郵箱井然有序，您可能習慣於將特定電子郵件保存在特定文件夾中。本文將告訴您如何使用 Outlook VBA 在您轉發電子郵件後自動移動電子郵件。

將類似的電子郵件存儲在特定的郵件文件夾中是管理大量電子郵件的好方法。可以肯定的是，不同的用戶必須有自己的郵件分類和管理標準。例如，您可能更喜歡根據對電子郵件的後續操作（例如回复、轉發或其他）對電子郵件進行分類。如果您想將電子郵件自動移動到特定文件夾，例如“轉發”，則在轉發時，您可以應用以下操作和 VBA 代碼以快速獲取它。

轉發後自動將電子郵件移動到特定文件夾

首先，啟動Outlook。
然後切換到“開發人員”選項卡。

請注意： 如果找不到此選項卡，則應先轉到“文件”>“選項”>“自定義功能區”以啟用它。

此選項卡可見後，您可以找到並單擊其下的“Visual Basic”按鈕。
隨後，將彈出一個新的“Microsoft Visual Basic for Applications”窗口。在其中，您應該雙擊左側的“ThisOutlookSession”項目將其打開。
之後，您可以將以下 VBA 代碼複製並粘貼到其中。

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub