Hvordan vise medlemmene av kontaktgruppen i listen via Outlook VBA

Outlook-løsninger September 29, 2025

Generelt, for å sjekke en kontaktgruppes medlemmer, må du først åpne den. Hvis du ønsker å se kontaktgruppemedlemmene direkte i listen uten å åpne den, kan du bruke tilnærmingen som er delt i denne artikkelen.

Fra min forrige artikkel - "Slik viser du medlemsantallet automatisk i Outlook-kontaktgrupper”, kan du lære hvordan du viser antallet gruppemedlemmer i listen. I likhet med det håper mange brukere å vise de konkrete gruppemedlemmene direkte i en egen kolonne. Derfor vil vi her lære deg hvordan du oppnår det.

Vis medlemmene av kontaktgruppen i listen via Outlook VBA

Vis medlemmer av kontaktgruppe i listen

  1. Start Outlook-applikasjonen til å begynne med.
  2. Deretter kan du trykke på "Alt + F11"-tastene for å få tilgang til VBA-editor.
  3. I det påfølgende "Microsoft Visual Basic for Applications"-vinduet åpner du prosjektet "ThisOutlookSession".
  4. Deretter kopierer og limer du inn følgende VBA-kode i dette prosjektet.
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 medlemmene av kontaktgruppen i listen

  1. Deretter klikker du på underrutinen «Application_Startup» og klikker på «Kjør»-ikonet i verktøylinjen, som vil utløse denne makroen umiddelbart.
  2. Deretter går du ut av VBA-editoren og fortsett å legge til "Medlemmer"-feltet til kontaktgruppelisten.
  • Gå til den riktige mappen i kontaktruten.
  • Bytt deretter til "Vis"-fanen og klikk på "Endre visning" og velg "Liste".
  • Trykk deretter på "Vis innstillinger"-knappen.
  • Senere klikker du på "Kolonner" i den nye popup-dialogboksen.
  • I den påfølgende "Vis kolonner"-dialogboksen legger du til "Medlemmer"-feltet ved å følge trinnene vist i skjermbildet nedenfor:Legg til "Medlemmer"-feltet
  1. Til slutt kan du gå tilbake til kontaktmappen. Du vil se medlemmene i kontaktgruppelisten, som følgende bilde:Gruppemedlemmer i listen
  2. Fra nå av vil listen over medlemmer i hver kontaktgruppe automatisk oppdateres hver gang du starter Outlook.
  3. Outlook vil også automatisk hente og vise medlemmene i den nye kontaktgruppen i "Medlemmer"-kolonnen.

Hold deg godt forberedt på Outlook-korrupsjon

Selv om Outlook er funksjonsrikt, kan det fortsatt ikke holde seg langt unna skade. Så du må være på vakt mot alle potensielle risikoer. Uten tvil må du lage en konsistent og oppdatert sikkerhetskopi av PST-dataene dine. Dessuten er det bedre å beholde en bemerkelsesverdig og pålitelig PST-fiks verktøy hendig, som f.eks DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert mdf-fiks og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.