如何将两个没有重复的文件夹合并到Outlook中的一个文件夹中？

在Outlook中，您可能有许多带有多个文件夹的电子邮件帐户，在某些情况下，您希望将两个文件夹合并到一个文件夹中并删除重复的项目。 您如何快速完成这项工作？ 在本文中，我介绍了VBA代码以帮助您在Outlook中尽快处理它。

通过VBA代码将两个没有重复的文件夹合并为一个

使用 Kutools for Outlook 合并多个文件夹并删除重复的项目

通过VBA代码将两个没有重复的文件夹合并为一个

要将两个文件夹合并为一个文件夹并删除重复的项目，可以使用VBA代码按以下步骤处理它：

1。 按 Alt + F11键 启用 Microsoft Visual Basic应用程序 窗口

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特点 等待您的探索！ 单击此处了解更多。

了解更多       免费下载      购买