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. "도구" > "참조"를 클릭하고, 나타나는 대화 상자에서 "Microsoft Scripting Runtime" 확인란을 선택합니다.
 |  |  |
4. "확인"을 클릭합니다. 이제 "F5" 키를 눌러 코드를 실행합니다. 첫 번째 병합할 폴더를 선택하라는 대화 상자가 나타납니다 (참고: 첫 번째 폴더의 모든 항목은 두 번째 폴더와 병합된 후 삭제됩니다).
5. "확인"을 클릭합니다. 두 번째 대화 상자에서 비교 및 병합할 두 번째 폴더를 선택합니다.
6. "확인"을 클릭합니다. 이제 첫 번째 폴더의 모든 항목이 두 번째 폴더로 이동되고, 중복 항목은 제거됩니다.
Kutools for Outlook을 사용하여 여러 폴더를 병합하고 중복 항목 제거하기
VBA 코드에 익숙하지 않다면, "Kutools for Outlook"이라는 유용한 추가 기능을 사용해 보세요. 이 기능은 "폴더 정리" 및 "중복 이메일" 유틸리티를 통해 이 작업을 쉽고 빠르게 처리할 수 있습니다.
Kutools for Outlook으로 궁극의 이메일 효율성을 경험하세요! 강력한 기능 70개를 영원히 무료로 이용할 수 있습니다. 지금 무료 버전을 다운로드하세요!
여러 폴더 병합하기
1. "Kutools Plus" > "폴더 정리"를 클릭한 다음, "여러 폴더를 하나의 폴더로 정리" 대화 상자에서 "추가"를 클릭하여 병합하려는 폴더를 목록에 추가하고 대상 폴더를 선택합니다.
2. "확인" > "확인"을 클릭합니다. 이제 선택한 폴더의 모든 항목이 지정된 폴더로 병합되었습니다.
중복 항목 제거하기
3. "Kutools" > "중복 삭제" > "중복 이메일"을 클릭합니다. 그런 다음 "중복 이메일" 대화 상자에서 중복을 제거하려는 폴더를 선택합니다.
4. "다음"을 클릭합니다. "중복 메시지 설정" 대화 상자에서 이메일을 비교하는 데 사용할 기준을 지정합니다. 그런 다음 "중복 이메일 삭제" 옵션을 선택하고 "단일 폴더 내에서 비교"를 선택합니다.
5. "다음" > "다음"을 클릭하면 중복 이메일이 필터링됩니다. "중복 이메일 삭제" 버튼을 클릭한 다음 "확인"을 클릭하여 중복 이메일을 성공적으로 제거합니다.
최고의 오피스 생산성 도구
속보: Kutools for Outlook 무료 버전 출시!
100개 이상의 놀라운 기능을 갖춘 완전히 새로워진 Kutools for Outlook을 경험해 보세요! 지금 다운로드하세요!
🤖 Kutools AI : 첨단 AI 기술을 활용하여 이메일 회신, 요약, 최적화, 확장, 번역, 작성까지 어떤 작업도 손쉽게 처리합니다.
📧 이메일 자동화: 자동 응답(POP 및 IMAP 지원) / 이메일 예약 발송 / 메일 발송 시 규칙에 따라 자동 참조/숨은 참조 / 고급 규칙 기반 자동 전달 / 자동 인사말 추가 / 여러 수신자 이메일을 개별 이메일로 자동 분할 ...
📨 이메일 관리: 이메일 회수 / 제목 등으로 스팸 이메일 차단 / 중복된 이메일 삭제 / 고급 검색 / 폴더 정리 ...
📁 첨부 파일 Pro: 일괄 저장 / 일괄 분리 / 일괄 압축 / 자동 저장 / 자동 분리 / 자동 압축 ...
🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모지 / 중요한 이메일 도착 시 알림 / 종료 대신 Outlook 최소화 ...
👍 원클릭 편의 기능: 모두 회신(첨부 파일 포함) / 피싱 방지 이메일 / 🕘보낸 사람의 시간대 표시 ...
👩🏼🤝👩🏻 연락처 & 캘린더: 선택한 이메일에서 연락처 일괄 추가 / 연락처 그룹을 개별 그룹으로 분리 / 생일 알림 제거 ...
원하는 언어로 Kutools를 사용할 수 있습니다 – 영어, 스페인어, 독일어, 프랑스어, 중국어 등40개 이상의 언어 지원!
한 번의 클릭으로 Kutools for Outlook을 즉시 활성화하세요. 기다리지 말고, 지금 다운로드하여 효율성을 높이세요!
