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

在日常工作中，您可能會收到大量來自未知寄件人的郵件，而這些寄件人並未儲存在您的「連絡人」資料夾中。這類郵件可能是垃圾郵件或惡意郵件，此時您或許希望自動將它們移至特定資料夾，而非留在收件匣中。那麼，該如何在 Outlook 中實現這項功能呢？

透過建立規則將來自未知寄件人的郵件移至特定資料夾

透過套用 VBA 程式碼將來自未知寄件人的郵件移至特定資料夾

---

透過建立規則將來自未知寄件人的郵件移至特定資料夾

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

1. 在收件匣資料夾下建立一個新建資料夾，用於存放來自未知寄件人的郵件，如下圖所示：

2. 接著點選首頁＞ 規則＞ 管理規則與警示，請參閱截圖：

3. 在規則與警示對話方塊中，點選新增規則，位置在電子郵件規則索引標籤下，請參閱截圖：

4. 然後點選確定按鈕以進入規則精靈，點選對我所接收的郵件套用規則選項，位於從空白規則開始區段框中，請參閱截圖：

5. 接著點選下一步按鈕，在此步驟中請勿勾選任何選項，直接點選下一步按鈕，此時會彈出警告視窗，請點選是按鈕，請參閱截圖：

6. 在接下來的對話方塊中，於將其移至指定的資料夾選項前打勾，位置在 步驟 1：選取動作 清單框中，然後點選連結文字指定的，在開啟的規則與警示對話方塊中，指定您要將郵件移至的資料夾，請參閱截圖：

7. 點選確定按鈕，再繼續點選下一步按鈕，在此是否有任何例外對話方塊中，於除非寄件人在指定的通訊簿中選項前打勾，位置在 步驟 1：選取例外 清單框中，然後點選連結文字指定的，此時會彈出新增地址列表方塊，請選取包含您要排除之連絡人的連絡人資料夾，請參閱截圖：

8. 接著點選新增按鈕，再點選下一步，進入最後一個精靈對話方塊。在 步驟 1：為此規則指定名稱 文字框中輸入規則名稱，並於 步驟 2：設定規則 區段中，勾選啟用此規則選項。請參閱截圖：

9. 然後點選完成和確定按鈕以關閉對話方塊。從現在起，所有來自未知寄件人的郵件將自動移至指定資料夾，讓您的收件匣更整潔有序！

---

透過套用 VBA 程式碼將來自未知寄件人的郵件移至特定資料夾

上述方法或許稍嫌繁瑣，這裡提供另一種更便捷的選擇：只需套用一段程式碼，即可快速達成目的。

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，於 Project 1(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

3. 儲存程式碼並關閉程式碼視窗，然後重新啟動 Outlook 以使設定生效。從此以後，所有來自未知寄件人的郵件將自動移至「Unknown」資料夾，請參閱截圖：

注意：當收到未知寄件人的郵件時，系統將自動建立 Unknown 資料夾。您可於指令稿中將資料夾名稱「Unknow」修改為其他名稱。