如何在Outlook中指派特定類別後將郵件移至指定資料夾？

假設您在Outlook中為一封收到的郵件指派了一個類別，指派類別後，您希望這封郵件能自動移動到一個以該類別名稱命名的特定郵件資料夾。例如，指派了「私密」類別的郵件將被移到名為「私密」的資料夾中。該如何實現呢？本文中的方法可以幫助您輕鬆解決這個問題。

使用VBA在指派特定類別後將郵件移至指定資料夾

使用VBA在指派特定類別後將郵件移至指定資料夾

以下VBA代碼可以幫助您在Outlook中於指派特定類別後自動將郵件移至指定資料夾。請按照以下步驟操作：

1. 按下 Alt + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，雙擊打開 ThisOutlookSession (Code) 窗口。然後將以下VBA代碼複製到窗口中。參見截圖：

VBA代碼：在指派特定類別後將郵件移至指定資料夾

Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set xInboxItems = xInboxFld.Items
End Sub

Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
    Set xMailItem = Item
    xFlag = False
    If xMailItem.Categories <> "" Then
        Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
        If xFlds.Count <> 0 Then
            For Each xFld In xFlds
                If xFld.Name = xMailItem.Categories Then
                    xFlag = True
                End If
            Next
        End If
        If xFlag = False Then
            Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
        End If
        Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
        xMailItem.Move xTargetFld
    End If
End If
End Sub

3. 保存代碼並重新啟動Outlook。

4. 從現在開始，當為接收郵件指派類別時，將會自動在收件匣下創建一個以該類別命名的資料夾，並且郵件會自動移入該資料夾。參見截圖：

便簽：所有指派相同類別的郵件都會自動移至同一資料夾。但如果為郵件指派了新的類別，則會自動創建一個新資料夾。

Outlook中的AI郵件助理：更聰明的回覆，更清晰的溝通（一鍵奇蹟！） 免費

使用Kutools for Outlook的AI郵件助理簡化您的日常Outlook任務。這個強大的工具會從您過去的郵件中學習，提供智能且準確的答覆，優化您的郵件內容，並幫助您輕鬆起草和潤色郵件。

此功能支援：

• 智能回覆：根據您過去的對話獲得量身定制、精確且隨時可用的回覆。
• 增強內容：自動優化您的郵件文字以提高清晰度和影響力。
• 輕鬆撰寫：只需提供關鍵字，讓AI處理其餘部分，並有多種寫作風格可供選擇。
• 智能擴展：通過上下文感知建議來拓展您的思路。
• 摘要生成：即時獲取長郵件的簡潔概述。
• 全球觸及：輕鬆將您的郵件翻譯成任何語言。

此功能支援：

• 智能郵件回覆
• 優化的內容
• 基於關鍵字的草稿
• 智能內容擴展
• 郵件摘要生成
• 多語言翻譯

最重要的是，此功能永遠完全免費！不要再等待了——立即下載AI郵件助理並享受吧

相關文章：

• 如何在Outlook中為外發郵件指派類別？
• 如何在Outlook中回覆或轉寄郵件時保留原始類別？