Sådan får du vist medlemmerne af kontaktgruppen på listen via Outlook VBA

Outlook-løsninger September 29, 2025

Generelt, for at kontrollere en kontaktgruppes medlemmer, skal du først åbne den. Hvis du ønsker at se kontaktgruppemedlemmerne direkte på listen uden at åbne den, kan du bruge den tilgang, der er delt i denne artikel.

Fra min tidligere artikel - “Sådan automatisk vises medlemstal i Outlook-kontaktgrupper”, kan du lære, hvordan du viser antallet af gruppemedlemmer på listen. I lighed med det håber mange brugere at vise de konkrete gruppemedlemmer direkte i en separat kolonne. Derfor vil vi her lære dig, hvordan du opnår det.

Vis medlemmerne af kontaktgruppen på listen via Outlook VBA

Vis medlemmer af kontaktgruppe på listen

  1. Start med at starte din Outlook-applikation.
  2. Derefter kan du trykke på "Alt + F11"-tasterne for at få adgang til VBA-editor.
  3. I det efterfølgende "Microsoft Visual Basic for Applications"-vindue skal du åbne "ThisOutlookSession"-projektet.
  4. Kopier og indsæt derefter følgende VBA-kode i dette 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

VBA-kode - Vis medlemmerne af kontaktgruppen på listen

  1. Dernæst skal du klikke på "Application_Startup"-underrutinen og klik på "Kør"-ikonet på værktøjslinjen, som vil udløse denne makro på én gang.
  2. Derefter skal du afslutte VBA-editoren og fortsætte med at tilføje "Medlemmer"-feltet til kontaktgruppelisten.
  • Få adgang til den korrekte mappe i ruden Kontakter.
  • Skift derefter til fanen "Vis", klik på "Skift visning" og vælg "Liste".
  • Tryk derefter på knappen "Vis indstillinger".
  • Klik senere på "Kolonner" i den nye popup-dialogboks.
  • I den efterfølgende "Vis kolonner"-dialogboks skal du tilføje feltet "Medlemmer" ved at følge trinene vist på skærmbilledet nedenfor:Tilføj feltet "Medlemmer".
  1. Endelig kunne du vende tilbage til kontaktmappen. Du vil se medlemmerne i kontaktgruppelisten, som følgende billede:Gruppemedlemmer på listen
  2. Fra nu af, hver gang du ertart Outlook opdaterer den automatisk listen over medlemmer af hver kontaktgruppe.
  3. Outlook vil også automatisk hente og vise medlemmerne af den nye kontaktgruppe i kolonnen "Medlemmer".

Hold godt forberedt på Outlook-korruption

Selvom Outlook er rig på funktioner, kan den stadig ikke holde sig langt væk fra skader. Så du skal være på vagt over for alle de potentielle risici. Uden tvivl skal du lave en konsistent og opdateret backup af dine PST-data. Hvad mere er, du er bedre stillet at holde en bemærkelsesværdig og pålidelig PST-rettelse værktøj praktisk, f.eks DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder mdf-rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.