VBA를 통해 폴더에서 중복 Outlook 항목을 빠르게 제거하는 방법

Outlook 솔루션 2025 년 9 월 29 일

Outlook에서 중복 항목을 제거하려면 하나씩 검색하고 제거하는 것이 상당히 번거 롭습니다. 이 post Outlook VBA로 빠르게 완료하는 방법을 알려줍니다.

이전 기사에서 –“Outlook에서 중복 이메일을 빠르게 찾고 제거하는 방법”, 중복 이메일을 찾아서 제거하는 방법을 배울 수 있습니다. 먼저 이메일을 제목별로 정렬 한 다음받은 시간별로 정렬 한 다음 첨부 파일별로 중복 항목을 찾고 마지막으로 중복 항목을 선택하고 "삭제"키를 누릅니다. 이 방법은 겉보기에는 좀 더 편리해 보이지만 Outlook VBA를 사용하는 것에 비해 훨씬 더 까다 롭습니다. 다음 VBA 코드를 사용하면 이메일, 작업, 연락처 또는 약속에 관계없이 클릭 한 번으로 중복 항목을 빠르게 제거 할 수 있습니다. 이제 코드를 자세히 읽어보십시오.

폴더에서 중복 Outlook 항목 제거

에tart와 함께 Outlook 프로그램을 시작하십시오.
그런 다음 "Alt + F11"키 버튼을 누릅니다.
다음 VBA 편집기 창에서 두 번 클릭하여 사용중인 모듈을 열거 나 "삽입"> "모듈"을 통해 새 모듈을 직접 삽입합니다.
다음으로 다음 VBA 코드를 복사하여 모듈에 붙여 넣습니다.

Sub RemoveDuplicateItems()
    Dim objFolder As Folder
    Dim objDictionary As Object
    Dim i As Long
    Dim objItem As Object
    Dim strKey As String

    Set objDictionary = CreateObject("scripting.dictionary")
    'Select a source folder
    Set objFolder = Outlook.Application.Session.PickFolder

    If Not (objFolder Is Nothing) Then
       For i = objFolder.Items.Count To 1 Step -1
           Set objItem = objFolder.Items.Item(i)
 
           Select Case objFolder.DefaultItemType
                  'Check email subject, body and sent time
                  Case olMailItem
                       strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
                  'Check appointment subject, start time, duration, location and body
                  Case olAppointmentItem
                       strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
                  'Check contact full name and email address
                  Case olContactItem
                       strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
                  'Check task subject, start date, due date and body
                  Case olTaskItem
                       strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
           End Select
 
           strKey = Replace(strKey, ", ", Chr(32))
 
           'Remove the duplicate items
           If objDictionary.Exists(strKey) = True Then
              objItem.Delete
           Else
              objDictionary.Add strKey, True
           End If
       Next i
    End If
End Sub

그런 다음이 매크로에 디지털 서명하고 Outlook 매크로 보안 수준을 낮음으로 변경합니다.
나중에이 새 VBA 프로젝트를 실행할 수 있습니다. 도구 모음에서 "실행"아이콘을 직접 클릭합니다.
그런 다음 중복 항목을 제거 할 폴더를 선택해야합니다.
마지막으로 선택한 폴더의 중복 항목이 한 번에 삭제됩니다.

취약한 PST 데이터 보호

PST 파일은 손상되기 쉬우므로 PST 파일을 보호하기 위해 많은 노력을 기울여야합니다. 예를 들어 Outlook이 부적절하게 닫히지 않도록해야합니다. 또한 강력한 준비가 필요합니다. Outlook 수정 도구, 같은 DataNumen Outlook Repair 제 시간에 PST를 구할 수 있습니다.

저자 소개 :

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