如何在 Outlook 中為郵件指定特定分類後，自動將其移至指定資料夾？

作者Siluvia修改日期2024-08-29

假設您已在 Outlook 中為收到的郵件指派了特定分類，並希望在指派後，該郵件能自動移至一個以該分類名稱命名的郵件資料夾中。例如，指派「私人」分類的郵件會自動移至名為「私人」的資料夾。該如何實現？本文介紹的方法可輕鬆幫您達成此目標。

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

下列 VBA 程式碼可協助您在 Outlook 中，於郵件被指派特定分類後，自動將其移至指定資料夾。請依照以下步驟操作：

1. 按下 Alt+F11 鍵，立即開啟 Microsoft Visual Basic for Applications 視窗！

2. 在 Microsoft Visual Basic for Applications 視窗中，雙擊開啟 ThisOutlookSession （程式碼）視窗，並將下方的 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

doc-assign-category-move-to-folder-1

3. 儲存程式碼後，重新啟動 Outlook。

4. 從現在起，當您在收件中指派分類時，系統將自動在「收件匣」下建立一個同名資料夾，並將該郵件移入其中。請參閱截圖：

doc-assign-category-move-to-folder-2

doc-assign-category-move-to-folder-3

注意：所有指派相同分類的郵件都會自動移至同一個資料夾；但若郵件上已存在新建組，系統將自動建立一個新資料夾。

Outlook 中的 AI 郵件助理：聰明回覆、清晰溝通，一鍵輕鬆搞定！

透過 Kutools for Outlook 的 AI 郵件助理，輕鬆簡化您每日的 Outlook 工作！這款強大工具能學習您過往的郵件內容，提供智慧又精準的回覆建議、優化郵件文字，並協助您毫不費力地起草與潤飾訊息。

此功能支援：

智慧回覆：根據您過往的對話，量身打造精準到位的回應，立即可用。
內容強化：自動優化您的郵件文字，提升清晰度與影響力。
輕鬆撰寫：只需提供關鍵字，其餘交給 AI 處理，並支援多種潤色風格。
智慧擴充：根據上下文提供貼心建議，延伸您的創意與想法。
摘要功能：立即獲取長篇郵件的簡明摘要。
全球溝通：輕鬆將郵件翻譯成任何語言。

此功能支援：

智慧郵件回覆
優化內容
關鍵字草稿
智慧內容擴充
郵件摘要
多語言翻譯

別再等待——立即下載 AI 郵件助理，盡情享受！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料與產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依性下拉式清單｜多重選擇下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單寄送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……更多功能