Outlook VBA를 통해 연락처 그룹의 구성원을 목록에 표시하는 방법

Outlook 솔루션 2025 년 9 월 29 일

일반적으로 연락처 그룹의 구성원을 확인하려면 먼저 그룹을 열어야합니다. 목록을 열지 않고 목록에서 직접 연락처 그룹 구성원을 보려면이 문서에서 공유하는 접근 방식을 활용할 수 있습니다.

이전 기사에서 –“Outlook 연락처 그룹에서 구성원 수를 자동으로 표시하는 방법”, 목록에서 그룹 회원 수를 표시하는 방법을 배울 수 있습니다. 이와 유사하게 많은 사용자가 구체적인 그룹 구성원을 별도의 열에 직접 표시하고자합니다. 따라서 여기서 우리는 그것을 달성하는 방법을 알려줄 것입니다.

목록에 연락처 그룹의 구성원 표시

먼저 Outlook 응용 프로그램을 시작하십시오.
그런 다음 "Alt + F11"키를 눌러 VBA 편집기에 액세스 할 수 있습니다.
후속 "Microsoft Visual Basic for Applications"창에서 "ThisOutlookSession"프로젝트를 엽니 다.
다음으로 다음 VBA 코드를이 프로젝트에 복사하여 붙여 넣습니다.

Private WithEvents olItems As Outlook.Items
Private objContactGroup As Outlook.DistListItem
Private objProperty As Outlook.UserProperty
Private strProperName As String
Private i As Long
Private objGroupMember As Outlook.recipient
Private strMemberName, strMembers As String

Private Sub Application_Startup()
    Set olItems = Application.Session.GetDefaultFolder(olFolderContacts).Items
    'Auto Update the members in group list on startup
    Call DisplayMembers
End Sub

'Auto Display the members of new Contact Group
Private Sub olItems_ItemAdd(ByVal Item As Object)
    If TypeOf objItem Is DistListItem Then
 
       strProperName = "Members"
       Set objProperty = objCurrentItem.UserProperties.Find(strProperName, True)
 
       Set objContactGroup = objItem
       Set objProperty = objContactGroup.UserProperties.Add(strProperName, olText, True)
 
       For i = 1 To objContactGroup.MemberCount
           Set objGroupMember = objContactGroup.GetMember(i)
           strMemberName = Split(objGroupMember.Address, "@")(0)
           strMemberName = UCase(Left(strMemberName, 1)) & Right(strMemberName, Len(strMemberName) - 1)
           strMembers = strMembers & strMemberName & "; "
       Next i

       objProperty.value = strMembers
       objContactGroup.Save
    End If
End Sub

Sub DisplayMembers()
    For Each objItem In olItems
        If TypeOf objItem Is DistListItem Then
           strProperName = "Members"
           Set objProperty = objItem.UserProperties.Find(strProperName, True)
 
           Set objContactGroup = objItem
           Set objProperty = objContactGroup.UserProperties.Add(strProperName, olText, True)
 
           'Get the names of all group members
           For i = 1 To objContactGroup.MemberCount
               Set objGroupMember = objContactGroup.GetMember(i)
               strMemberName = Split(objGroupMember.Address, "@")(0)
               strMemberName = UCase(Left(strMemberName, 1)) & Right(strMemberName, Len(strMemberName) - 1)
               strMembers = strMembers & strMemberName & "; "
           Next i
 
           objProperty.value = strMembers
           objContactGroup.Save
        End If
        strMembers = ""
    Next
End Sub

다음으로“Application_Startup”서브 루틴을 클릭하고 도구 모음에서“실행”아이콘을 클릭하면이 매크로가 한 번에 트리거됩니다.
그런 다음 VBA 편집기를 종료하고 계속해서 연락처 그룹 목록에 "Members"필드를 추가합니다.

연락처 창에서 올바른 폴더에 액세스합니다.
그런 다음 "보기"탭으로 전환하고 "보기 변경"을 클릭하고 "목록"을 선택합니다.
다음으로 "설정보기"버튼을 누르십시오.
나중에 새로 팝업 대화 상자에서 "열"을 클릭합니다.
후속 "열 표시"대화 상자에서 아래 스크린 샷에 표시된 단계에 따라 "구성원"필드를 추가합니다.

마지막으로 연락처 폴더로 돌아갈 수 있습니다. 다음 이미지와 같이 연락처 그룹 목록에 구성원이 표시됩니다.
지금부터 매번tart Outlook에서는 각 연락처 그룹의 구성원 목록이 자동으로 업데이트됩니다.
또한 Outlook은 "구성원"열에 새 연락처 그룹의 구성원을 자동으로 가져 와서 표시합니다.

Outlook 손상에 대해 잘 준비하십시오.

Outlook은 기능이 풍부하지만 여전히 손상을 방지 할 수는 없습니다. 따라서 모든 잠재적 위험에 대해 경계해야합니다. 의심 할 여지없이 PST 데이터에 대한 일관된 최신 백업을 만들어야합니다. 더군다나 놀랍고 신뢰할 수있는 상태를 유지하는 것이 좋습니다. PST 수정 다음과 같은 편리한 도구 DataNumen Outlook Repair.

저자 소개 :

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