메인 컨텐츠로 가기

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

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 - 귀하의 전망을 강화하는 100개 이상의 강력한 기능

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

📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다.  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

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

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  탭 보기로 Outlook 생산성 향상  /  문을 닫는 대신 전망을 최소화하세요 ...

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

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

이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.

 

 

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