跳到主要內容

如何將兩個沒有重複的文件夾合併到Outlook中的一個文件夾中?

在Outlook中,您可能有許多帶有多個文件夾的電子郵件帳戶,在某些情況下,您希望將兩個文件夾合併到一個文件夾中並刪除重複的項目。 您如何快速完成這項工作? 在本文中,我介紹了VBA代碼以幫助您在Outlook中盡快處理它。

通過VBA代碼將兩個沒有重複的文件夾合併為一個

使用Kutools for Outlook合併多個文件夾並刪除重複的項目


通過VBA代碼將兩個沒有重複的文件夾合併為一個

要將兩個文件夾合併為一個文件夾並刪除重複的項目,可以使用VBA代碼按以下步驟處理它:

1。 按 Alt + F11鍵 啟用 Microsoft Visual Basic for Applications 窗口

2.雙擊 本次展望會議 Project1 在左側窗格中,然後將下面的代碼複製並粘貼到右側腳本中。

VBA:合併兩個沒有重複的文件夾

Sub MergeOutlookFolders_WithoutDuplicates()
'UpdatebyExtendoffice20180521
Dim xSourceFolder As Outlook.Folder
Dim xTargetFolder As Outlook.Folder
Dim xCount, i As Long
Dim xItem As Object
Dim xSourceItem As Object
Dim xTargetItem As Object
Dim xDictionary As Scripting.Dictionary  'Object
Dim xStr As String
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
Set xSourceFolder = Application.Session.PickFolder
Set xTargetFolder = Application.Session.PickFolder
xCount = 0
If xSourceFolder.DefaultItemType <> xTargetFolder.DefaultItemType Then
    MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly, "Kutools for Outlook"
    Exit Sub
End If
For i = xSourceFolder.Items.Count To 1 Step -1
    Set xSourceItem = xSourceFolder.Items.Item(i)
    xSourceItem.Move xTargetFolder
Next
For i = xTargetFolder.Items.Count To 1 Step -1
    Set xTargetItem = xTargetFolder.Items.Item(i)
    Select Case xTargetItem.Class
        Case olMail
            With xTargetItem
                xStr = .Subject & .Body & .SentOn
            End With
        Case olAppointment
            With xTargetItem
                xStr = .Subject & .Start & .Duration & .Location & .Body
            End With
        Case olContact
            With xTargetItem
                xStr = .FullName & .Email1Address & .Email2Address & .Email3Address
            End With
        Case olTask
            With xTargetItem
                xStr = .Subject & .StartDate & .DueDate & .Body
            End With
    End Select
    If xDictionary.Exists(xStr) = True Then
        xTargetItem.Delete
        xCount = xCount + 1
    Else
        xDictionary.Add xStr, True
    End If
Next i
If xCount <> 0 Then
    MsgBox xCount & " duplicates removed when merging!", vbInformation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

doc合併文件夾,沒有重複項1

3。 點擊 工具 > 參考 然後在彈出的對話框中檢查 Microsoft腳本運行時 複選框。

doc合併文件夾,沒有重複項2 doc箭頭向右 doc合併文件夾,沒有重複項3

4。 點擊 OK。 現在按 F5 鍵來運行代碼。 彈出一個對話框,提醒您選擇要合併的第一個文件夾(注意:與第二個文件夾合併後,第一個文件夾中的所有項目將被刪除)。
doc合併文件夾,沒有重複項4

5。 點擊 OK,在第二個彈出對話框中,選擇要比較並合併的第二個文件夾。
doc合併文件夾,沒有重複項5

6。 點擊 OK,現在,第一個文件夾中的所有項目都將移至第二個文件夾,並且重複的項目也將被刪除。
doc合併文件夾,沒有重複項6


使用Kutools for Outlook合併多個文件夾並刪除重複的項目

如果您不熟悉VBA代碼,請嘗試使用 Kutools for Outlook,一個方便的加載項及其 合併文件夾電子郵件重複 可以輕鬆快速地完成這項工作的實用程序。

Kutools for Outlook , 包括 100+ Microsoft Outlook 2016、2013、2010和Office 365的強大功能和工具。

免費安裝 Kutools for Outlook,然後執行以下步驟:

合併多個文件夾

1。 點擊 Kutools 加 > 合併文件夾,然後在 將多個文件夾合併為一個 對話框中單擊 加入 要將文件夾添加到要合併的列表中,請選擇一個文件夾作為目標文件夾。
doc合併並刪除重複項1

2。 點擊 OK > OK。 現在,所選文件夾中的所有項目都已合併到一個特定的文件夾中。
doc合併並刪除重複項2

刪除重複項

3。 點擊 庫工具 > 刪除重複 > 電子郵件重複。 然後在 郵件重複 對話框中,檢查要刪除重複項的文件夾。
doc合併並刪除重複項3

4。 點擊 下一頁重複郵件設置 對話框中,指定用於比較電子郵件的條件,然後檢查 刪除重複的消息 選項並選擇 比較單個文件夾中的重複郵件.
doc合併並刪除重複項4

5。 點擊 下一頁 > 下一頁,重複的電子郵件已被過濾。 請點擊 刪除重複的消息 按鈕> OK 成功刪除重複的電子郵件。
doc合併並刪除重複項5 doc合併文件夾,沒有重複項6


最佳辦公生產力工具

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