跳到主要内容

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

作者:孙 最后修改时间:2020-10-29

在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

文档合并文件夹,没有重复项1

3。 点击 工具 > 参考资料 然后在弹出的对话框中检查 Microsoft脚本运行时 复选框。

文档合并文件夹,没有重复项2 doc箭头向右 文档合并文件夹,没有重复项3

4。 点击 OK。 现在按 F5 键来运行代码。 弹出一个对话框,提醒您选择要合并的第一个文件夹(注意:与第二个文件夹合并后,第一个文件夹中的所有项目将被删除)。
文档合并文件夹,没有重复项4

5。 点击 OK,在第二个弹出对话框中,选择要比较并合并的第二个文件夹。
文档合并文件夹,没有重复项5

6。 点击 OK,现在,第一个文件夹中的所有项目都将移至第二个文件夹,并且重复的项目也将被删除。
文档合并文件夹,没有重复项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 文档合并文件夹,没有重复项6


最佳办公生产力工具

最新消息:Kutools for Outlook 发布 免费版本!

体验全新的 Kutools for Outlook 免费版本拥有 70 多项令人难以置信的功能,您可以永久使用! 点击立即下载!

🤖 Kutools人工智能 : 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...

📧 电子邮件自动化: 自动回复(适用于 POP 和 IMAP)  /  安排发送电子邮件  /  发送电子邮件时按规则自动抄送/密件抄送  /  自动转发(高级规则)   /  自动添加问候语   /  自动将多收件人电子邮件拆分为单独的消息 ...

📨 电子邮件管理: 撤回电子邮件  /  按主题和其他人阻止诈骗电子邮件  /  删除重复的电子邮件  /  高级搜索  /  合并文件夹 ...

📁 附件专业版批量保存  /  批量分离  /  批量压缩  /  自动保存   /  自动分离  /  自动压缩 ...

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  收到重要邮件时提醒您  /  最小化 Outlook 而不是关闭 ...

👍 一键奇迹: 使用传入附件回复全部  /   反网络钓鱼电子邮件  /  🕘显示发件人的时区 ...

👩🏼‍🤝‍👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人  /  将联系人组拆分为各个组  /  删除生日提醒 ...

只需单击一下即可立即解锁 Kutools for Outlook -永久免费. 别等了, 立即下载并提高您的效率!

kutools for outlook 功能1 kutools for outlook 功能2
 

 

 

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