Outlook：如何刪除重複的日曆項目

作者：孫最後修改時間：2022-04-29

有時，當我們從其他設備導入事件時，會有一些重複的日曆項目。為了去除重複的日曆項，本教程介紹了兩種不同的方法，一種是在重複項較少時逐個刪除，另一種是使用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 for Applications 窗口。

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

運行此代碼，每個類別中相同主題、位置、正文、類別的所有重複項均已刪除。