Outlook：重複するカレンダー項目を削除する方法

他のデバイスからイベントをインポートすると、カレンダーに重複した予定が作成されることがあります。本チュートリアルでは、こうした重複項目を削除するための2 つの方法をご紹介します。重複が少ない場合は1 件ずつ手動で削除し、大量にある場合は VBA を使って一括で削除します。

カレンダー項目を1 つずつ手動で重複を削除

VBA でカレンダー項目を一度に重複を削除

---

カレンダー項目を1 つずつ手動で重複を削除

重複するカレンダー項目を1 つずつ削除するには、まず一覧を特定の順序で表示して重複を明確に確認できるようにし、その後、1 つずつ削除する必要があります。

1。通常、カレンダーは「カレンダー」ビューに設定されています。「重複を削除したいカレンダー」をアクティブにして、「表示」＞「表示の変更」＞「一覧」の順にクリックしてください。

これでカレンダーが一覧形式で表示されます。

2。次に、項目の重複を判定する条件を指定します。たとえば、件名（サブジェクト）が同一かどうかで比較すると仮定しましょう。「カレンダーの一覧」で「件名」をクリックすると、同じ件名を持つすべての項目がグループ化されて表示されます。

3。これで、同じ件名を持つ項目を1 つずつ削除できます。項目を右クリックし、表示されるコンテキストメニューから「削除」を選択してください。

---

---

VBA でカレンダー項目を一度に重複を削除

ここでは、さまざまなケースに対応し、カレンダーフォルダー内の重複するカレンダー項目をすべて削除できる VBA コードをご紹介します。

1。「Alt」キーと「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 では、「date」カテゴリ内の重複を、件名・場所・本文・カテゴリの内容を比較して削除します。必要に応じて、これらの比較項目をカスタマイズできます。

3。次に、「F5」キーを押すか「実行」をクリックしてコードを実行します。「マクロ」ダイアログが表示されたら、「RemoveDuplicateCalendar」を選択して「実行」をクリックしてください。。

これにより、「date」カテゴリ内の重複する項目が自動的に削除されます。

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

このコードを実行すると、各カテゴリ内で件名・場所・本文・カテゴリが完全に一致する重複アイテムがすべて削除されます。

注：上記の VBA コードは、サブフォルダーを含むカレンダーフォルダーでも正常に動作します。