Kā parādīt kontaktu grupas dalībniekus sarakstā, izmantojot Outlook VBA

Parasti, lai pārbaudītu kontaktu grupas dalībniekus, vispirms tā ir jāatver. Ja vēlaties redzēt kontaktu grupas dalībniekus tieši sarakstā, to neatverot, varat izmantot šajā rakstā aprakstīto pieeju.

No mana iepriekšējā raksta - "Kā automātiski parādīt dalībnieku skaitu Outlook kontaktpersonu grupās”, varat uzzināt, kā sarakstā parādīt grupas dalībnieku skaitu. Līdzīgi tam, daudzi lietotāji cer tieši parādīt konkrētās grupas dalībniekus atsevišķā kolonnā. Tāpēc šeit mēs iemācīsim, kā to sasniegt.

Parādīt sarakstā kontaktpersonu grupas dalībniekus

1. Vispirms palaidiet programmu Outlook.
2. Pēc tam varat nospiest taustiņus “Alt + F11”, lai piekļūtu VBA redaktoram.
3. Nākamajā logā “Microsoft Visual Basic for Applications” atveriet projektu “ThisOutlookSession”.
4. Pēc tam kopējiet un ielīmējiet šo VBA kodu šajā projektā.

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

5. Pēc tam noklikšķiniet uz apakšprogrammas “Application_Startup” un pēc tam rīkjoslā noklikšķiniet uz ikonas “Run”, kas nekavējoties aktivizēs šo makro.
6. Pēc tam izejiet no VBA redaktora un turpiniet pievienot lauku “Dalībnieki” kontaktu grupu sarakstam.

• Rūtī Kontaktpersonas piekļūstiet pareizajai mapei.
• Pēc tam pārejiet uz cilni “Skats” un noklikšķiniet uz “Mainīt skatu” un atlasiet “Saraksts”.
• Nākamais nospiediet pogu "Skatīt iestatījumus".
• Vēlāk uznirstošajā dialoglodziņā noklikšķiniet uz “Slejas”.
• Nākamajā dialoglodziņā “Rādīt kolonnas” pievienojiet lauku “Dalībnieki”, izpildot tālāk redzamajā ekrānuzņēmumā norādītās darbības.

7. Visbeidzot, jūs varētu atgriezties kontaktpersonu mapē. Jūs redzēsit dalībniekus kontaktu grupu sarakstā, piemēram, šajā attēlā:
8. Turpmāk katru reizi, startējot programmu Outlook, tā automātiski atjauninās katras kontaktgrupas dalībnieku sarakstu.
9. Turklāt programma Outlook automātiski iegūs un parādīs jaunās kontaktpersonu grupas dalībniekus kolonnā “Dalībnieki”.

Saglabājiet labi sagatavotu Outlook korupcijai

Lai gan programma Outlook ir bagāta ar funkcijām, tā joprojām nevar izvairīties no bojājumiem. Tāpēc jums ir jābūt modram pret visiem iespējamiem riskiem. Bez šaubām, jums ir jāizveido konsekventa un atjaunināta jūsu PST datu dublējums. Vēl vairāk, labāk ir saglabāt izcilu un uzticamu PST labojums rīks ērts, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar