Outlook에서 중복없이 여러 폴더의 항목을 빠르게 병합하는 방법

Outlook 솔루션 2025 년 9 월 29 일

여러 Outlook 폴더의 모든 항목을 병합하고 중복되지 않도록하려면이 문서에 소개 된 방법을 사용할 수 있습니다. 코르크처럼 수행 할 수 있도록 VBA 코드를 사용하고 있습니다.

때때로 여러 Outlook 연락처 폴더의 모든 연락처를 병합하는 것과 같이 여러 Outlook 폴더의 항목을 병합 할 수 있습니다. 이 상황에서 이러한 폴더 사이에 중복 된 연락처가있는 경우 병합 중에 중복 된 연락처가 자동으로 제거 될 수 있기를 바랍니다. 이러한 상황에서 다음 VBA 코드를 사용하여 쉽게 구현할 수 있습니다.

중복없이 여러 폴더의 항목 병합

에tar함께 Outlook 응용 프로그램을 시작하십시오.
그런 다음 Outlook 기본 화면에서 "Alt + F11"키 버튼을 눌러 Outlook VBA 편집기에 액세스해야합니다.
다음으로 "Microsoft Visual Basic for Applications"창에서 사용하지 않는 모듈을 열어야합니다.
그 후 다음 VBA 코드를이 모듈에 복사해야합니다.

'Here we take "merging two folders" as an example
Sub MergeOutlookFolders_WithoutDuplicates()
    Dim objSourceFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
    Dim i, n, x As Long
    Dim objItem As Object
    Dim objDictionary As Object
    Dim strKey As String
 
    Set objSourceFolder = Application.Session.PickFolder
    Set objTargetFolder = Application.Session.PickFolder

    If objSourceFolder.DefaultItemType <> objTargetFolder.DefaultItemType Then
       MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly
    Else
       'Merge the two folders
       For i = objSourceFolder.Items.count To 1 Step -1
           Set objItem = objSourceFolder.Items.Item(i)
           objItem.Move objTargetFolder
       Next i
 
       Set objDictionary = CreateObject("scripting.dictionary")
 
       'Remove the duplicates
       x = 0
       For n = objTargetFolder.Items.count To 1 Step -1
           Set objItem = objTargetFolder.Items.Item(n)
 
           Select Case objItem.Class
                  Case olMail
                       strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
                  Case olAppointment
                       strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
                  Case olContact
                       strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
                  Case olTask
                       strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
           End Select
 
           strKey = Replace(strKey, ", ", Chr(32))
 
           If objDictionary.Exists(strKey) = True Then
              objItem.Delete
              x = x + 1
           Else
              objDictionary.Add strKey, True
           End If
      Next n
 
      'Prompt you of the count of removed duplicates
      If x <> 0 Then
         MsgBox x & " duplicates removed when merging!", vbInformation + vbOKOnly
      End If
    End If
End Sub

나중에 Outlook 매크로 설정을 확인하여 매크로가 활성화되었는지 확인해야합니다.
마지막으로 시도해 볼 수 있습니다.

먼저 새 모듈 창으로 돌아갑니다.
다음으로이 매크로를 트리거하려면 F5 키 버튼을 누르십시오.
그런 다음 병합 할 두 폴더를 선택해야합니다. 첫 번째는 소스이고 두 번째는 tar하나 얻으십시오.
그 후 Outlook은 원본 폴더의 모든 항목을 원본 폴더로 이동하기 시작합니다. tar하나 얻으십시오. 또한 그 동안 중복 항목은 자동으로 제거됩니다.
궁극적으로 아래 스크린 샷과 같이 제거 된 중복 항목의 개수를 묻는 메시지가 표시 될 수 있습니다.

작은 오류로 인해 큰 충돌이 발생할 수 있음

많은 우수한 기능이로드 되었음에도 불구하고 Outlook은 여전히 오류와 손상에 취약합니다. 아마도 다양한 Outlook 문제가 발생했을 것입니다. 많은 사용자가 임의의 오류를 무시하는 경향이 있습니다. 그러나 심각한 Outlook 충돌을 유발하는 작은 오류이며 Outlook 파일을 위험에 빠뜨립니다. 따라서 작은 오류를 무시해서는 안됩니다. 대신 가능한 한 빨리 제거해야합니다. 또한, 당신은 apt를 유지하는 것이 좋습니다 PST 수리 도구, 같은 DataNumen Outlook Repair. 높은 복구율을 통해이 유틸리티는 동료보다 우위에 있습니다.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 손상된 SQL 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM