如何將電子郵件從未知發件人移動到Outlook中的特定文件夾？ 

在日常工作中，您可能會收到許多來自未知發件人的電子郵件，這些電子郵件未保存在“聯繫人”文件夾中。 這些可能是一些垃圾郵件或惡意電子郵件，在這種情況下，您希望將這些電子郵件自動移動到特定的文件夾而不是收件箱中。 您如何在Outlook中解決這項工作？

通過創建規則將電子郵件從未知發件人移動到特定文件夾

通過應用VBA代碼將電子郵件從未知發件人移動到特定文件夾

---

通過創建規則將電子郵件從未知發件人移動到特定文件夾

實際上，您可以創建一條規則，將電子郵件從未知發件人自動移動到特定文件夾，請執行以下操作：

1。 在收件箱文件夾下創建一個新文件夾，該文件夾將來自未知用戶的電子郵件放入其中，如以下屏幕截圖所示：

2。 然後點擊 首頁 > 規則 > 管理規則和警報，請參見屏幕截圖：

3。 在 規則和警報 對話框，單擊 新規則 在 電子郵件規則 標籤，請參見屏幕截圖：

4。 並點擊 OK 按鈕去 規則嚮導點擊此處成為Trail Hunter 對收到的郵件應用規則 選項從 從空規則開始 部分框，請參見屏幕截圖：

5。 然後點擊 下一頁 按鈕，在此步驟中，請不要選擇任何選項，然後單擊 下一頁 直接點擊按鈕，彈出警告框，請點擊 是 按鈕，請參見屏幕截圖：

6。 然後在下一個對話框中，選中 將其移動到指定的文件夾 在選項 步驟1：選擇動作 列錶框，然後單擊鏈接的文本 指定，並在打開 規則和警報 對話框中，指定要將電子郵件移至的文件夾，請參見屏幕截圖：

7。 點擊 OK 按鈕，然後繼續單擊 下一頁 按鈕，在此 有沒有例外 對話框，檢查 除非發件人在指定的地址簿中 在選項 步驟1：選擇例外 列錶框，然後單擊鏈接的文本 指定和一個 添加地址列表 框將彈出，選擇一個聯繫人文件夾，其中包含您要除的聯繫人，請參見屏幕截圖：

8。 然後點擊 加入 按鈕，然後單擊 下一頁 要轉到最後一個嚮導對話框，請在 步驟1：為此規則指定一個名稱 文本框，然後選中 啟用此規則 選項從 步驟2：設定規則 選項部分。 看截圖：

9。 然後點擊 完 及 Ok 按鈕以關閉對話框。 從現在開始，當來自未知發件人的電子郵件將被自動移動到特定文件夾。

---

通過應用VBA代碼將電子郵件從未知發件人移動到特定文件夾

可能上述方法對您來說很麻煩，在這裡，您可以應用代碼來盡快對其進行處理。

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

2。 在 Microsoft Visual Basic for Applications 窗口，雙擊 本次展望會議 來自 Project1（VbaProject.OTM） 窗格以打開模式，然後將以下代碼複製並粘貼到空白模塊中。

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

3。 然後保存代碼並關閉代碼窗口，然後重新啟動Outlook以使代碼生效。 從現在開始，當來自某些未知發件人的電子郵件將被自動移動到“未知”文件夾中，請參見屏幕截圖：

備註：“ 未知 收到一些未知電子郵件時，將自動創建文件夾。 您可以更改文件夾名稱“不明腳本中的其他人。