VBA를 사용하여 Outlook 전자 메일에서 중복받는 사람을 빠르게 제거하는 방법

Outlook 솔루션 2025 년 9 월 29 일

현재 이메일의 "받는 사람"필드에 연락처 그룹을 추가하는 경우 중복 된 그룹이있을 수 있습니다. 이 문서에서는 VBA를 사용하여 중복받는 사람을 빠르게 제거하는 방법을 설명합니다.

이메일을 작성할 때 연락처뿐만 아니라 연락처 그룹도 수신자로 추가하면 연락처 그룹이 기본적으로 축소되어 일부 중복 된 수신자가있을 수 있습니다. 이 경우 중복 된 항목을 찾으려면 먼저 연락처 그룹을 확장 한 다음 수신자를 수동으로 비교해야합니다. 이는 이전 기사에서 자세히 소개했습니다.Outlook 이메일에서 중복받는 사람을 제거하는 방법”. 의심 할 여지없이 매우 지루합니다. 따라서 많은 사용자가 중복 수신자를 제거하는 빠른 방법을 원합니다. 다음에서는 Outlook VBA로 가져 오는 방법을 알려드립니다.

Outlook 이메일에서 중복받는 사람을 빠르게 제거

먼저 Outlook 응용 프로그램을 시작하십시오.
그런 다음 "개발자"탭으로 전환하고 "Visual Basic"버튼을 클릭하거나 "Alt + F11"키를 누르십시오.
다음으로 "Microsoft Visual Basic for Applications"창에서 빈 모듈을 열 수 있습니다.
그런 다음 다음 VBA 코드를 복사하여이 모듈에 붙여 넣습니다.

Sub RemoveDuplicateRecipients()
    Dim objCurrentMail As MailItem
    Dim objRecipients As Recipients
    Dim ContactGroupFound As Boolean
    Dim i, n As Long
 
    Set objCurrentMail = ActiveInspector.CurrentItem
    ContactGroupFound = True
 
    While ContactGroupFound = True
          Set objRecipients = objCurrentMail.Recipients
          ContactGroupFound = False
 
          'Expand the contact groups in "To" field
          For i = objRecipients.Count To 1 Step -1
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.Count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        ContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          Next i
          objRecipients.ResolveAll
    Wend
 
    'Remove the duplicate recipients
    For i = objRecipients.Count To 1 Step -1
        For n = (i - 1) To 1 Step -1
            If objRecipients(i).Address = objRecipients(n).Address Then
               objRecipients(i).Delete
               Exit For
            End If
        Next
    Next
End Sub

그런 다음 메시지 창의 빠른 실행 도구 모음에서 새 VBA 프로젝트를 추가 할 수 있습니다.
나중에 Outlook 매크로 보안 수준을 낮음으로 설정해야합니다.
마지막으로 시도해 볼 수 있습니다.

먼저 평소처럼 이메일을 작성하세요.
그런 다음 "받는 사람"필드에 연락처 그룹과 연락처를 추가합니다.
다음으로 빠른 실행 도구 모음에서 새 매크로 버튼을 클릭 할 수 있습니다.
한 번에 Outlook은 자동으로 연락처 그룹을 확장 한 다음 중복받는 사람을 제거합니다.

귀중한 Outlook 데이터 보호

Outlook이 충돌하기 쉬우므로 Outlook 데이터가 손상되기 쉽습니다. 따라서 Outlook 파일을 보호하기 위해 많은 노력을 기울여야합니다. 먼저 PST 파일을 정기적으로 백업해야합니다. 그것은 촉진 할 것입니다 손상된 PST 수리. 또한 다음과 같은 강력한 수정 도구를 준비하는 것이 좋습니다. DataNumen Outlook Repair.

저자 소개 :

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