Outlook： 중복된 캘린더 항목 제거 방법

다른 장치에서 이벤트를 가져올 때 중복된 캘린더 항목이 생기는 경우가 있습니다. 이러한 중복 항목을 제거하기 위해 이 튜토리얼에서는 두 가지 방법을 소개합니다. 중복 항목이 적을 경우 하나씩 수동으로 제거하는 방법과 VBA 를 사용해 한 번에 모든 중복 항목을 제거하는 방법입니다。

캘린더 항목을 수동으로 중복 제거 하나씩

VBA 를 사용해 캘린더 항목을 한 번에 중복 제거

---

캘린더 항목을 수동으로 중복 제거 하나씩

중복된 캘린더 항목을 하나씩 제거하려면 먼저 중복 항목을 명확히 확인할 수 있도록 특정 순서로 나열한 후， 하나씩 제거해야 합니다。

1. 일반적으로 캘린더는 「캘린더」 보기 상태입니다。 중복 제거하고자 하는 캘린더를 활성화한 다음， 「보기」 > 「보기 변경」 > 「목록」을 클릭하세요。

이제 캘린더가 목록 형태로 표시됩니다。

2. 그런 다음 항목이 중복인지 비교할 조건을 지정합니다。 예를 들어， 항목의 제목이 동일한지 비교한다고 가정해 보겠습니다。 캘린더 목록에서 「제목」을 클릭하면 동일한 제목을 가진 모든 항목이 함께 그룹화됩니다。

3. 이제 동일한 제목을 가진 항목을 마우스 오른쪽 버튼으로 클릭한 후 나타나는 상황별 메뉴에서 「삭제」를 클릭하여 하나씩 제거할 수 있습니다。

---

---

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 는 하위 폴더를 포함한 캘린더 폴더 전체에서 작동합니다。