Skip to main content

Kutools for Office — 하나의 패키지. 다섯 가지 도구. 더 많은 일을 처리하세요.

Outlook에서 중복 없이 두 개의 폴더를 하나의 폴더로 병합하려면 어떻게 해야 하나요?

Author Sun Last modified

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

doc merge folders without duplicates 1

3. "도구" > "참조"를 클릭하고, 나타나는 대화 상자에서 "Microsoft Scripting Runtime" 확인란을 선택합니다.

doc merge folders without duplicates 2 doc arrow right doc merge folders without duplicates 3

4. "확인"을 클릭합니다. 이제 "F5" 키를 눌러 코드를 실행합니다. 첫 번째 병합할 폴더를 선택하라는 대화 상자가 나타납니다 (참고: 첫 번째 폴더의 모든 항목은 두 번째 폴더와 병합된 후 삭제됩니다).
doc merge folders without duplicates 4

5. "확인"을 클릭합니다. 두 번째 대화 상자에서 비교 및 병합할 두 번째 폴더를 선택합니다.
doc merge folders without duplicates 5

6. "확인"을 클릭합니다. 이제 첫 번째 폴더의 모든 항목이 두 번째 폴더로 이동되고, 중복 항목은 제거됩니다.
doc merge folders without duplicates 6


Kutools for Outlook을 사용하여 여러 폴더를 병합하고 중복 항목 제거하기

VBA 코드에 익숙하지 않다면, "Kutools for Outlook"이라는 유용한 추가 기능을 사용해 보세요. 이 기능은 "폴더 정리" 및 "중복 이메일" 유틸리티를 통해 이 작업을 쉽고 빠르게 처리할 수 있습니다.

Outlook의 비효율성에 작별을 고하세요! Kutools for Outlook로 대량 이메일 처리가 더욱 쉬워졌습니다 - 이제 무료 AI 기능도 함께 제공됩니다! Kutools for Outlook을 지금 다운로드하세요!!

여러 폴더 병합하기

1. "Kutools Plus" > "폴더 정리"를 클릭한 다음, "여러 폴더를 하나의 폴더로 정리" 대화 상자에서 "추가"를 클릭하여 병합하려는 폴더를 목록에 추가하고 대상 폴더를 선택합니다.
doc consolidate and remove duplicate 1

2. "확인" > "확인"을 클릭합니다. 이제 선택한 폴더의 모든 항목이 지정된 폴더로 병합되었습니다.
doc consolidate and remove duplicate 2

중복 항목 제거하기

3. "Kutools" > "중복 삭제" > "중복 이메일"을 클릭합니다. 그런 다음 "중복 이메일" 대화 상자에서 중복을 제거하려는 폴더를 선택합니다.
doc consolidate and remove duplicate 3

4. "다음"을 클릭합니다. "중복 메시지 설정" 대화 상자에서 이메일을 비교하는 데 사용할 기준을 지정합니다. 그런 다음 "중복 이메일 삭제" 옵션을 선택하고 "단일 폴더 내에서 비교"를 선택합니다.
doc consolidate and remove duplicate 4

5. "다음" > "다음"을 클릭하면 중복 이메일이 필터링됩니다. "중복 이메일 삭제" 버튼을 클릭한 다음 "확인"을 클릭하여 중복 이메일을 성공적으로 제거합니다.
doc consolidate and remove duplicate 5 doc merge folders without duplicates 6


최고의 오피스 생산성 도구

속보: Kutools for Outlook 무료 버전 출시!

새롭게 달라진 Kutools for Outlook에서100가지 이상의 놀라운 기능을 경험해보세요! 지금 다운로드하세요!

🤖 Kutools AI : 첨단 AI 기술을 활용해 이메일을 손쉽게 처리합니다. 회신, 요약, 최적화, 확장, 번역, 작성까지 모두 지원합니다.

📧 이메일 자동화: 자동 응답(POP 및 IMAP 지원) / 이메일 보내기 예약 / 이메일 전송 시 규칙별 자동 참조/숨은 참조 / 자동 전달(고급 규칙) / 자동 인사말 추가 / 여러 수신자 이메일을 개별 이메일로 자동 분할 ...

📨 이메일 관리: 이메일 회수 / 제목 및 기타 기준으로 의심스러운 이메일 차단 / 중복 이메일 삭제 / 고급 검색 / 폴더 정리 ...

📁 첨부 파일 프로: 일괄 저장 / 일괄 분리 / 일괄 압축 / 자동 저장 / 자동 분리 / 자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 다양한 이모지 / 중요한 이메일이 오면 알림 / Outlook 종료 대신 최소화 ...

👍 원클릭 기능: 모두 회신 (첨부 파일 포함) / 피싱 방지 이메일 / 🕘보낸 사람의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가 / 연락처 그룹을 개별 그룹으로 분할 / 생일 알림 제거 ...

원하는 언어로 Kutools를 사용하세요 – 영어, 스페인어, 독일어, 프랑스어, 중국어 및40가지 이상을 지원합니다!

한 번의 클릭으로 Kutools for Outlook을 즉시 활성화하세요. 기다리지 말고 지금 다운로드하여 업무 효율을 높여보세요!

kutools for outlook features1 kutools for outlook features2

🚀 원클릭 다운로드 — 모든 Office 추가 기능 받기

강력 추천: Kutools for Office (5-in-1)

한 번의 클릭으로 다섯 종류의 설치 파일을 동시에 다운로드하세요 — Kutools for Excel, Outlook, Word, PowerPointOffice Tab Pro. 지금 다운로드하세요!

  • 원클릭 편리함: 다섯 가지 설치 패키지를 단 한 번에 다운로드할 수 있습니다.
  • 🚀 모든 Office 작업에 바로 준비 완료: 필요한 추가 기능을 원하는 때에 설치하세요.
  • 🧰 포함됨: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint