Outlook에서 한 연락처 그룹의 모든 구성원을 다른 그룹으로 복사하는 2 가지 방법

Outlook 솔루션 2025 년 9 월 29 일

이 문서에서는 한 연락처 그룹의 모든 구성원을 다른 연락처 그룹으로 복사하는 두 가지 방법을 소개합니다. 필요에 따라 선택할 수 있습니다.

많은 사용자는 Outlook에서 한 연락처 그룹의 구성원을 다른 연락처 그룹으로 빠르게 복사할 수 있는 방법을 제공할 수 있기를 바랍니다. 수동으로 회원을 일일이 추가해야 하는 번거로움에서 벗어날 수 있습니다. 이제 다음에서 두 가지 방법을 공유하겠습니다. 첫 번째는 Outlook 기본 기능을 사용하는 해결 방법입니다. 후자는 VBA 코드를 사용하기 때문에 훨씬 더 똑똑합니다.

방법 1: 구성원을 수동으로 복사 및 붙여넣기

우선, start Outlook 프로그램.
그런 다음 특정 연락처 그룹을 찾아 피칭해야 하는 연락처 영역에 액세스할 수 있습니다.
다음으로 "홈" 탭 아래의 "커뮤니케이트" 그룹에서 "이메일" 버튼을 클릭할 수 있습니다.
그런 다음 그룹을 확장하려면 "받는 사람" 필드의 그룹 앞에 있는 "+" 아이콘을 클릭해야 하는 새 이메일이 표시됩니다.
나중에 "To" 필드를 확장한 후 모든 구성원의 이메일 주소를 복사합니다.
그런 다음 연락처 폴더로 돌아가 구성원을 복사할 연락처 그룹을 찾아 엽니다.
. tar연락처 그룹 창에서 "구성원 추가" > "주소록에서"를 클릭합니다.
그런 다음 팝업 대화 상자에서 “Ctrl + V”를 눌러 복사한 멤버를 “멤버->” 필드에 붙여넣습니다.
마지막으로 "확인" 및 "저장 후 닫기" 버튼을 클릭하여 변경 사항을 저장합니다.

방법 2: VBA를 통해 한 연락처 그룹에서 다른 그룹으로 구성원 복사

먼저 기본 Outlook 창에서 “Alt + F11” 키 버튼을 누릅니다.
후속 "응용 프로그램용 Microsoft Visual Basic" 창에서 다음 VBA 코드를 사용하지 않는 모듈에 복사합니다.

Sub CopyMembersFromOneContactGroupToAnother()
    Dim objSourceGroup As DistListItem
    Dim strTargetGroupName As String
    Dim objCurrentContactsFolder, objDefaultContactsFolder As Folder
    Dim objTargetGroup As DistListItem
    Dim objGroupMember As recipient
 
    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objSourceGroup = ActiveInspector.CurrentItem
           Case olExplorer
                Set objSourceGroup = ActiveExplorer.Selection.Item(1)
    End Select
 
    If objSourceGroup.MemberCount > 0 Then
 
       strTargetGroupName = InputBox("Enter the target contact group name:", "Specify Target Contact Group")
 
       Set objCurrentContactsFolder = objSourceGroup.parent
       Set objTargetGroup = objCurrentContactsFolder.Items.Find("[Subject]= " & Chr(34) & strTargetGroupName & Chr(34))
 
       If Not objTargetGroup Is Nothing Then
          For i = objSourceGroup.MemberCount To 1 Step -1
              Set objGroupMember = objSourceGroup.GetMember(i)
              objTargetGroup.AddMember objGroupMember
          Next i
          objTargetGroup.Save
          MsgBox "Copy Successfully!", vbInformation
      Else
          Set objDefaultContactsFolder = Application.Session.GetDefaultFolder(olFolderContacts)
          Set objTargetGroup = objDefaultContactsFolder.Items.Find("[Subject]= " & Chr(34) & strTargetGroupName & Chr(34))
 
          If Not objTargetGroup Is Nothing Then
             For i = objSourceGroup.MemberCount To 1 Step -1
                 Set objGroupMember = objSourceGroup.GetMember(i)
                 objTargetGroup.AddMember objGroupMember
             Next i
             objTargetGroup.Save
             MsgBox "Copy Successfully!", vbInformation
         Else
             MsgBox "There is not a contact group named as" & Chr(34) & strTargetGroupName & Chr(34) & "!", vbExclamation
         End If
      End If
    End If
End Sub

그런 다음 평소와 같이 이 매크로를 빠른 실행 도구 모음에 추가할 수 있습니다.
마지막으로 시도해 볼 수 있습니다.

시작하려면 소스 연락처 그룹을 선택하거나 엽니다.
그런 다음 빠른 실행 도구 모음에서 매크로 버튼을 클릭합니다.
나중에 이름을 입력하라는 메시지가 표시됩니다. tar연락처 그룹을 가져옵니다.
그런 다음 "확인"을 누릅니다. 한 번에 Outlook에서 tar연락처 그룹을 가져오고 소스 그룹의 구성원을 여기에 복사합니다.

손상된 Outlook 파일 구출

Outlook은 정전, 바이러스 감염 등 다양한 악성 요인에 취약합니다. 원치 않는 손상을 방지하기 위해 정기적인 Outlook 백업 외에는 선택의 여지가 없습니다. 게다가 다음과 같은 강력한 PST 복구 도구를 설치하는 것이 좋습니다. DataNumen Outlook Repair. 스캔하고 PST 수리 복구율이 높은 파일.

저자 소개 :

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