메인 컨텐츠로 가기

Outlook에서 중복되지 않은 두 폴더를 하나의 폴더로 병합하는 방법은 무엇입니까?

작가: 썬 최종 수정 날짜: 2020-10-29

Outlook에는 많은 폴더가있는 많은 전자 메일 계정이있을 수 있습니다. 경우에 따라 두 폴더를 하나로 병합하고 중복 항목을 제거하려고합니다. 이 일을 어떻게 빨리 해결할 수 있습니까? 이 기사에서는 Outlook에서 가능한 한 빨리 처리하는 데 도움이되는 VBA 코드를 소개합니다.

중복되지 않은 두 개의 폴더를 VBA 코드로 하나로 병합

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


중복되지 않은 두 개의 폴더를 VBA 코드로 하나로 병합

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

1. 프레스 Alt + F11 활성화하는 키 응용 프로그램 용 Microsoft Visual Basic

2. 더블 클릭 ThisOutlook세션 Project1 왼쪽 창에서 오른쪽 스크립트에 코드 아래를 복사하여 붙여 넣습니다.

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

중복없이 문서 병합 폴더 1

3. 클릭 도구 > 참고자료 팝업 대화 상자에서 Microsoft 스크립팅 런타임 확인란의 선택을 취소합니다.

중복없이 문서 병합 폴더 2 문서 화살표 오른쪽 중복없이 문서 병합 폴더 3

4. 클릭 OK. 지금 언론 F5 코드를 실행하는 키입니다. 병합 할 첫 번째 폴더를 선택하라는 대화 상자가 나타납니다 (참고 : 첫 번째 폴더의 모든 항목은 두 번째 폴더와 병합 된 후 제거됩니다).
중복없이 문서 병합 폴더 4

5. 클릭 OK, 두 번째 팝업 대화 상자에서 비교하고 병합 할 두 번째 폴더를 선택합니다.
중복없이 문서 병합 폴더 5

6. 클릭 OK이제 첫 번째 폴더의 모든 항목이 두 번째 폴더로 이동되고 중복 항목도 제거됩니다.
중복없이 문서 병합 폴더 6


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

VBA 코드에 익숙하지 않은 경우 Outlook 용 Kutools, 편리한 추가 기능입니다. 폴더 통합중복 이메일 이 작업을 쉽고 빠르게 처리 할 수있는 유틸리티.

Kutools for Outlook , 포함 사항 100+ Microsoft Outlook 2016, 2013, 2010 및 Office 365를위한 강력한 기능 및 도구입니다.

무료 설치 Outlook 용 Kutools를 누른 다음 아래 단계를 수행하십시오.

여러 폴더 병합

1. 클릭 쿠툴즈 플러스 > 폴더 통합, 그 다음에 여러 폴더를 하나로 병합 대화 상자에서 추가 병합 할 목록에 폴더를 추가하려면 폴더를 대상 폴더로 선택하십시오.
문서 통합 및 중복 제거 1

2. 클릭 OK > OK. 이제 선택한 폴더의 모든 항목이 하나의 특정 폴더로 병합되었습니다.
문서 통합 및 중복 제거 2

중복 항목 제거

3. 클릭 쿠툴 > 중복 삭제 > 중복 이메일. 그런 다음 중복 메시지 대화 상자에서 중복을 제거하려는 폴더를 확인하십시오.
문서 통합 및 중복 제거 3

4. 클릭 다음 보기중복 메시지 설정 대화 상자에서 이메일을 비교하는 데 사용할 기준을 지정한 다음 중복 메시지 삭제 옵션 및 선택 단일 폴더 내 중복 메시지 비교.
문서 통합 및 중복 제거 4

5. 클릭 다음 보기 > 다음 보기, 중복 이메일이 필터링되었습니다. 딸깍 하는 소리 중복 메시지 삭제 버튼> OK 중복 이메일을 성공적으로 제거합니다.
문서 통합 및 중복 제거 5 중복없이 문서 병합 폴더 6


최고의 사무 생산성 도구

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

완전히 새로운 Outlook용 Kutools를 경험해보세요 70개 이상의 놀라운 기능을 갖춘 무료 버전으로 영원히 사용할 수 있습니다.! 지금 다운로드하려면 클릭하세요!

🤖 Kutools AI : AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...

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

📨 이메일 관리: 리콜 이메일  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

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

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  중요한 이메일이 오면 알림  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

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

한 번의 클릭으로 Outlook용 Kutools를 즉시 잠금 해제—영구적으로 무료. 기다리지 마세요. 지금 다운로드하여 효율성을 높이세요!

Outlook 기능을 위한 kutools1 Outlook 기능을 위한 kutools2
 

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations