跳到主要內容

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

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

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

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


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

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

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

doc從未知1移動電子郵件

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

doc從未知2移動電子郵件

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

doc從未知3移動電子郵件

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

doc從未知4移動電子郵件

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

doc從未知5移動電子郵件

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

doc從未知6移動電子郵件

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

doc從未知7移動電子郵件

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

doc從未知8移動電子郵件

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

doc從未知9移動電子郵件

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

doc從未知10移動電子郵件

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


最佳辦公生產力工具

Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook

🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件! ……

📧 電子郵件自動化: 外出(適用於 POP 和 IMAP)  /  安排發送電子郵件  /  發送電子郵件時按規則自動抄送/密件副本  /  自動轉送(進階規則)   /  自動添加問候語   /  自動將多收件者電子郵件拆分為單獨的訊息 ...

📨 電子郵件管理: 輕鬆回憶電子郵件  /  按主題和其他人阻止詐騙電子郵件  /  刪除重複的電子郵件  /  進階搜索  /  合併資料夾 ...

📁 附件專業版批量保存  /  批量分離  /  批量壓縮  /  自動保存   /  自動分離  /  自動壓縮 ...

🌟 介面魔法: 😊更多又漂亮又酷的表情符號   /  使用選項卡式視圖提高 Outlook 工作效率  /  最小化 Outlook 而不是關閉 ...

👍 一鍵奇蹟: 使用傳入附件回覆全部  /   反網路釣魚電子郵件  /  🕘顯示寄件者的時區 ...

👩🏼‍🤝‍👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人  /  將聯絡人群組拆分為各組  /  刪除生日提醒 ...

超過 100特點 等待您的探索! 按此處了解更多。

閱讀更多       免費下載      購買
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations