Note: The other languages of the website are Google-translated. Back to English

如何將電子郵件從未知發件人移動到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-為Outlook帶來100個高級功能,並使工作更加輕鬆!

  • 自動CC / BCC 根據規則發送電子郵件; 自動前進 自定義多封電子郵件; 自動回复 沒有交換服務器,還有更多自動功能...
  • BCC警告 -當您嘗試全部答复時顯示消息 如果您的郵件地址在“密件抄送”列表中; 缺少附件時提醒,還有更多提醒功能...
  • 在郵件對話中回复(全部)帶有所有附件; 回复許多電子郵件 片刻之間; 自動添加問候語 回复時將日期添加到主題中...
  • 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,保存全部...快速報告, 計算選定的郵件...
  • 強大的垃圾郵件 習俗 刪除重複的郵件和聯繫人... 使您能夠在Outlook中做得更聰明,更快和更好。
拍攝kutools前景kutools選項卡1180x121
拍攝kutools前景kutools加標籤1180x121
 
按評論排序
留言 (0)
還沒有評分。 成為第一位評論!
這裡還沒有評論
請用英文發表您的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護