Outlook 에서 중복 없이 두 폴더를 하나의 폴더로 병합하는 방법은 무엇인가요？

Outlook 에서는 여러 이메일 계정과 각각의 수많은 폴더를 사용할 수 있습니다. 경우에 따라 두 폴더를 하나로 병합하고 중복 항목을 제거하고 싶을 수도 있습니다. 이 작업을 어떻게 빠르게 해결할 수 있을까요? 본 문서에서는 Outlook 에서 가능한 한 신속하게 이를 처리할 수 있도록 도와주는 VBA 코드를 소개합니다。

VBA 코드로 중복 없이 두 폴더를 하나로 병합하기

여러 폴더를 병합하고 Kutools for Outlook 으로 중복 항목 제거

---

VBA 코드로 중복 없이 두 폴더를 하나로 병합하기

두 폴더를 하나로 병합하고 중복 항목을 제거하려면 다음 단계에 따라 VBA 코드를 사용할 수 있습니다。

1. 「Alt + F11」 키를 눌러 「Microsoft Visual Basic for Applications」 창을 엽니다。

2. 왼쪽 패널에서 “Project1" 아래에 있는 「ThisOutlookSession」을 두 번 클릭한 후， 아래의 코드를 오른쪽 스크립트 창에 복사하여 붙여넣습니다。

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

3. 「도구(Tools)」 > 「참조(References)」를 클릭하고， 나타나는 대화 상자에서 「Microsoft Scripting Runtime」 확인란을 선택합니다。

4. 「확인(OK)」을 클릭합니다。 이제 “F5" 키를 눌러 코드를 실행합니다。 첫 번째 병합 대상 폴더를 선택하라는 대화 상자가 표시됩니다(참고： 첫 번째 폴더의 모든 항목은 두 번째 폴더와 병합된 후 삭제됩니다)。

5. 「확인(OK)」을 클릭합니다。 두 번째 대화 상자에서 비교 및 병합할 두 번째 폴더를 선택합니다。

6. 「확인(OK)」을 클릭합니다。 이제 첫 번째 폴더의 모든 항목이 두 번째 폴더로 이동되며 중복 항목은 제거됩니다。

---

여러 폴더를 병합하고 Kutools for Outlook 으로 중복 항목 제거

VBA 코드 사용이 익숙하지 않다면， 간편한 애드인인 「Kutools for Outlook」을 사용해 보세요。 여기 포함된 「폴더 정리」 및 「중복된 이메일」 유틸리티를 통해 이 작업을 쉽고 빠르게 처리할 수 있습니다。

여러 폴더 병합하기

1. 「Kutools 플러스」 > 「폴더 정리」을 클릭한 후， 「여러 폴더를 하나의 폴더로 정리」 대화 상자에서 「추가(Add)」를 클릭하여 병합할 폴더들을 목록에 추가하고， 대상 폴더로 사용할 폴더를 지정합니다。

2. 「확인(OK)」 > 「확인(OK)」을 클릭합니다。 이제 선택한 폴더의 모든 항목이 지정된 폴더로 병합됩니다。

중복 항목 제거하기

3. 「Kutools」 > 「중복 삭제(Delete Duplicate)」 > 「중복된 이메일」을 클릭합니다。 그런 다음 「중복 이메일」 대화 상자에서 중복 제거 폴더를 선택합니다。

4. 「다음(Next)」을 클릭합니다。 「중복 이메일 설정(Settings)」 대화 상자에서 이메일 비교 기준을 지정합니다。 그런 다음 「중복 이메일 삭제」 옵션을 선택하고 「단일 폴더 내에서 비교」을 지정합니다。

5. 「다음(Next)」 > 「다음(Next)」을 클릭하면 중복된 이메일이 필터링됩니다。 「중복 메시지 삭제(Delete duplicate message)」 버튼을 클릭한 후 「확인(OK)」을 눌러 중복된 이메일을 성공적으로 제거합니다。