Outlook：如何删除重复的日历项目

有时，当我们从其他设备导入事件时，会有一些重复的日历项目。为了去除重复的日历项，本教程介绍了两种不同的方法，一种是在重复项较少时逐个删除，另一种是使用VBA一次删除所有重复项。

手动删除重复的日历项

VBA一次删除重复的日历项目

Office 选项卡 - 在 Microsoft Office 中启用选项卡式编辑和浏览，让工作变得轻而易举

阅读更多下载...

Kutools for Outlook - 通过 100 多个高级功能增强 Outlook，实现卓越效率

自动发送电子邮件自动CC / BCC, 自动转发按规则；发送自动回复（不在办公室）无需交换服务器...
获取类似提醒 BCC警告当您在密件抄送列表中回复所有内容时，以及缺少附件时提醒对于忘记的附件...
提高电子邮件效率回复（全部）并附上附件, 自动添加问候语或日期和时间到签名或主题中, 回复多封电子邮件...
简化电子邮件发送撤回电子邮件, 附件工具（压缩全部、自动保存全部...）、删除重复及快速报告...

使用这些高级功能增强您的 Outlook 2021 - 2010 或 Outlook 365。享受全面的 60 天免费试用并提升您的电子邮件体验！

阅读更多下载...

手动删除重复的日历项

要逐个删除重复的日历项，您需要将它们按特定顺序列出以便首先清楚地查看重复项，然后将它们逐个删除。

1.一般来说，日历是在一个日历查看，激活要删除重复项的日历，然后单击查看 > 变更检视 > 清单.

现在日历已被视为列表。

2. 然后指定用于比较项目是否重复的条件，假设比较项目是否具有相同的主题。点击分科在日历列表中，然后将具有相同主题的所有项目放在一起。

3. 现在您可以通过右键单击项目并单击来将具有相同主题的项目一一删除删除从弹出的上下文菜单中。

VBA一次删除重复的日历项目

这里介绍一些VBA，它可以在不同情况下删除日历文件夹中所有重复的日历项。

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

2。点击插页 > 模块创建一个新的空白模块，然后将以下代码复制并粘贴到模块中。

VBA：删除一个特定类别中的所有重复日历项目

'Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change categories as you need in below script
    If xItem.Categories = "date" Then
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
    End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

在此 VBA 中，它将删除“日期” 这个类别通过比较主题、位置、正文和类别，您可以根据需要更改它们。

3.然后按 F5 键或单击 Run 运行代码，出现一个对话框宏弹出，选择 删除重复日历 并点击运行 .

然后删除了“日期”类别中的重复项。

VBA：跨类别删除所有重复的日历项目

Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

运行此代码，每个类别中相同主题、位置、正文、类别的所有重复项均已删除。