Hogyan jelenítheti meg a névjegycsoport tagjait a listában az Outlook VBA-n keresztül

Általában a kapcsolattartó csoport tagjainak ellenőrzéséhez először meg kell nyitnia azt. Ha a kapcsolattartó csoport tagjait közvetlenül a listában szeretné látni anélkül, hogy megnyitná azt, használhatja az ebben a cikkben ismertetett megközelítést.

Előző cikkemből – "A tagok számának automatikus megjelenítése az Outlook kapcsolattartó csoportjaiban”, megtudhatja, hogyan jelenítheti meg a csoporttagok számát a listában. Ehhez hasonlóan sok felhasználó azt reméli, hogy a konkrét csoporttagokat közvetlenül egy külön oszlopban jeleníti meg. Ezért itt megtanítjuk, hogyan érd el.

A névjegycsoport tagjainak megjelenítése a listában

1. Kezdésként indítsa el az Outlook alkalmazást.
2. Ezután nyomja meg az „Alt + F11” billentyűket a VBA-szerkesztő eléréséhez.
3. A következő „Microsoft Visual Basic for Applications” ablakban nyissa meg a „ThisOutlookSession” projektet.
4. Ezután másolja ki és illessze be a következő VBA-kódot ebbe a projektbe.

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. Ezután kattintson az „Application_Startup” szubrutint, és kattintson az eszköztár „Futtatás” ikonjára, amely azonnal elindítja ezt a makrót.
6. Ezt követően lépjen ki a VBA-szerkesztőből, és folytassa a „Members” mező hozzáadásával a kapcsolati csoportok listájához.

• A Névjegyek panelen nyissa meg a megfelelő mappát.
• Ezután váltson a „Nézet” fülre, kattintson a „Nézet módosítása” elemre, és válassza a „Lista” lehetőséget.
• Ezután nyomja meg a „Beállítások megtekintése” gombot.
• Később kattintson az „Oszlopok” elemre az újonnan felugró párbeszédpanelen.
• A következő „Oszlopok megjelenítése” párbeszédpanelen adja hozzá a „Tagok” mezőt az alábbi képernyőképen látható lépések végrehajtásával:

7. Végül visszatérhet a kapcsolatok mappába. Látni fogja a tagokat a névjegyzékben, például a következő képen:
8. Ezentúl minden alkalommal, amikor start Outlook, automatikusan frissíti az egyes kapcsolati csoportok tagjainak listáját.
9. Ezenkívül az Outlook automatikusan lekéri és megjeleníti az új kapcsolattartó csoport tagjait a „Tagok” oszlopban.

Készüljön fel az Outlook korrupciójára

Annak ellenére, hogy az Outlook funkciókban gazdag, mégsem képes távol tartani a sérülésektől. Ezért ébernek kell lennie minden lehetséges kockázattal szemben. Minden kétség nélkül következetes és naprakész biztonsági másolatot kell készítenie a PST-adatokról. Mi több, jobban jársz, ha figyelemre méltó és megbízható maradsz PST javítás kéznél lévő eszköz, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com