如何將兩個沒有重複的文件夾合併到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

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

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

5。 點擊 OK，在第二個彈出對話框中，選擇要比較並合併的第二個文件夾。

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

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

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

免費安裝 Kutools for Outlook，然後執行以下步驟：

合併多個文件夾

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

2。 點擊 OK > OK。 現在，所選文件夾中的所有項目都已合併到一個特定的文件夾中。

刪除重複項

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

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

5。 點擊 下一頁 > 下一頁，重複的電子郵件已被過濾。 請點擊 刪除重複的消息 按鈕> OK 成功刪除重複的電子郵件。

---

最佳辦公生產力工具

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

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

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

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

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

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

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

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

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

了解更多       免費下載      購買