如何在Outlook中將來自未知寄件者的郵件移動到特定資料夾？

Author: Xiaoyang Last Modified: 2025-05-13

在日常工作中，您可能會收到許多來自未保存在聯絡人資料夾中的未知寄件者的郵件。這些可能是垃圾郵件或惡意郵件，在這種情況下，您希望自動將這些郵件移動到特定資料夾而不是收件匣。那麼，您該如何在Outlook中解決這個問題呢？

通過建立規則將來自未知寄件者的郵件移動到特定資料夾

通過應用VBA代碼將來自未知寄件者的郵件移動到特定資料夾

通過建立規則將來自未知寄件者的郵件移動到特定資料夾

實際上，您可以建立一個規則來自動將來自未知寄件者的郵件移動到特定資料夾，請按照以下步驟操作：

1. 在收件匣資料夾下建立一個新資料夾，該資料夾將放置來自未知寄件者的郵件，如下圖所示：

doc move emails from unknown 1

2. 然後點擊 Home > Rules > Manage Rules & Alerts，參見截圖：

doc move emails from unknown 2

3. 在「規則和通知」對話框中，點擊「電子郵件規則」標籤下的「新建規則」，參見截圖：

doc move emails from unknown 3

4. 點擊「確定」按鈕進入規則嚮導，從「從空白規則開始」部分選擇「對我收到的郵件套用規則」選項，參見截圖：

doc move emails from unknown 4

5. 然後點擊「下一步」按鈕，在這一步中，請不要選擇任何選項，直接點擊「下一步」按鈕，會彈出警告框，請點擊 「是」按鈕，參見截圖：

doc move emails from unknown 5

6. 在下一個對話框中，勾選「將其移動到指定資料夾」選項（位於 「步驟1：選擇動作」列表框中），然後點擊鏈接文字「指定」，在打開的 「規則和通知」對話框中，指定要將郵件移動到的資料夾，參見截圖：

doc move emails from unknown 6

7. 點擊「確定」按鈕，繼續點擊「下一步」按鈕，在「是否有例外」對話框中，勾選「 如果寄件者在指定通訊簿中則除外」選項（位於「步驟1：選擇例外」列表框中），然後點擊鏈接文字「指定」，將彈出「新增地址列表」對話框，選擇包含您想排除的聯絡人的聯絡人資料夾，參見截圖：

doc move emails from unknown 7

8. 然後點擊「新增」按鈕，再點擊「下一步」進入最後的嚮導對話框，在「步驟1：為此規則指定名稱」文本框中輸入規則名稱，並在「步驟2：設置規則選項」部分勾選「啟用此規則」選項。參見截圖：

doc move emails from unknown 8

9. 然後點擊「完成」和「確定」按鈕關閉對話框。從現在起，當來自未知寄件者的郵件到達時，它們將自動被移動到特定資料夾。

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

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

此功能支援：

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

此功能支援：

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

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

通過應用VBA代碼將來自未知寄件者的郵件移動到特定資料夾

上述方法可能對您來說很麻煩，這裡，您可以應用一段代碼來快速處理。

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

2. 在 Microsoft Visual Basic for Applications 窗口中，雙擊 Project1(VbaProject.OTM) 窗格中的 ThisOutlookSession 以打開模塊，然後將以下代碼複製並粘貼到空白模塊中。

VBA代碼：自動將來自未知寄件者的郵件移動到特定資料夾：

Public WithEvents MailItems As Outlook.Items
Private Sub Application_Startup()
    Set MailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub MailItems_ItemAdd(ByVal item As Object)
Dim xSenderEmailAddress As String
Dim xContactItems As Outlook.Items
Dim xContactItem As ContactItem
Dim I As Long
Dim xFilter As String
Dim xTargetFolder As Folder
Dim xContactFolder As Folder
Dim xStore As Store
Dim xInboxFlds As Folders
Dim xSubFolder As Folder
Dim xFound As Boolean
On Error Resume Next
If item.Class = olMail Then
    xSenderEmailAddress = item.SenderEmailAddress
End If
For Each xStore In Outlook.Application.Session.Stores
    Set xContactItems = xStore.GetDefaultFolder(olFolderContacts).Items
    For I = 3 To 1 Step -1
        xFilter = "[Email" & I & "Address] = " & xSenderEmailAddress
        Set xContactItem = xContactItems.Find(xFilter)
        If TypeName(xContactItem) <> "Nothing" Then Exit For
    Next
Next
If xContactItem Is Nothing Then
    Set xInboxFlds = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders
    xFound = False
    For Each xSubFolder In xInboxFlds
        If xSubFolder.Name = "Unknown" Then
            xFound = True
            Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders("Unknown")
            Exit For
        End If
    Next
    If xFound = False Then
        Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add("Unknown")
    End If
    item.Move xTargetFolder
End If
End Sub

doc move emails from unknown 9