Ga naar hoofdinhoud

Hoe leden van distributielijsten in Outlook te tellen?

In Outlook is er geen functie waarmee u de leden van de distributielijst rechtstreeks kunt tellen. Als u een distributielijst heeft met een groot aantal e-mailadressen, hoe kunt u er dan achter komen hoeveel leden er in deze groep zitten? Met dit artikel leert u hoe u leden van distributielijsten kunt tellen met behulp van VBA-code.

Tel distributielijstleden in Outlook met VBA-code

Maak en bewaar een VBA-code

Voeg een knop voor de macro toe aan de werkbalk Snelle toegang

Voer de VBA-code uit

Office-tabblad - Schakel bewerken en bladeren met tabbladen in Microsoft Office in, waardoor werken een fluitje van een cent wordt
Kutools voor Outlook - Geef Outlook een boost met meer dan 100 geavanceerde functies voor superieure efficiëntie
Geef uw Outlook 2021 - 2010 of Outlook 365 een boost met deze geavanceerde functies. Geniet van een uitgebreide gratis proefperiode van 60 dagen en verbeter uw e-mailervaring!

pijl blauw rechts belTel distributielijstleden in Outlook met VBA-code

U kunt VBA-code gebruiken om de leden van de distributielijst als volgt te tellen.

Maak en bewaar een VBA-code

1. Open de Microsoft Visual Basic voor toepassingen venster door op de te drukken anders + F11 toetsen op het toetsenbord tegelijkertijd.

2. klikken Invoegen > Module. Zie screenshot:

3. Kopieer en plak vervolgens de volgende VBA-code in het VbaProject venster.

VBA: tel distributielijstleden in Outlook

Sub CountDLMembers()
    Dim oOL As Outlook.Application
    Dim oSelection As Outlook.Selection
    Dim oItem As Object
    Dim olDL As Outlook.DistListItem
    Dim Result As String
    Set oOL = Outlook.Application
    'Check and get the selected Contact Group
    Select Case TypeName(oOL.ActiveWindow)
        Case "Explorer"
            Set oSelection = oOL.ActiveExplorer.Selection
            If oSelection.Count > 0 Then
                Set oItem = oSelection.Item(1)
            Else
                Result = MsgBox("No item selected. " & _
                            "Please select a Contact Group first.", _
                            vbCritical, "CountDLMembers")
                Exit Sub
            End If
        Case "Inspector"
            Set oItem = oOL.ActiveInspector.CurrentItem
        Case Else
            Result = MsgBox("Unsupported Window type." & _
                        vbNewLine & "Please make a selection" & _
                        "in the Calendar or open a Contact Group first.", _
                        vbCritical, "CountDLMembers")
            Exit Sub
    End Select
    If oItem.Class = Outlook.olDistributionList Then
        'Display the member count
        Set olDL = oItem        
        Result = MsgBox("The Contact Group '" & olDL.DLName & "' contains " & olDL.MemberCount & " members.", vbInformation, "CountDLMembers")
    Else
        'Selected item isn't a Contact Group item
        Result = MsgBox("No Contact Group item selected. " & _
                    "Please make a selection first.", _
                    vbCritical, "CountDLMembers")
        Exit Sub
    End If
    'Cleanup
    Set oOL = Nothing
    Set olDL = Nothing
End Sub

4. Klik vervolgens op het Bespaar knop om het op te slaan.

5. Sluit de Microsoft Visual Basic voor toepassingen venster.

Voeg een knop voor de macro toe aan de werkbalk Snelle toegang

1. Naar de Contacten or Mensen bekijken door op het Contacten or Mensen in de Navigatiedeelvenster.

2. Klik in Outlook 2010 en 2013 met de rechtermuisknop op het Snelle toegangswerkbalk En klik vervolgens op Pas de werkbalk Snelle toegang aan in het rechtsklikmenu. Zie screenshot:

Note: Open in Outlook 2007 een distributielijst en klik met de rechtermuisknop op het Snelle toegangswerkbalk om de te selecteren Snelle toegangswerkbalk in het rechtsklikmenu.

3. In de Outlook Opties dialoogvenster, moet u:

1). Zorg ervoor dat u zich in het Snelle toegangswerkbalk sectie;

2). Selecteer Macro's in de Kies opdrachten van keuzelijst;

3). Selecteer de macro's in het Separator doos;

4). Klik op de Toevoegen knop;

5). En klik ten slotte op het OK knop. Zie screenshot:

4. Vervolgens kunt u zien dat de knop voor de macro is toegevoegd aan de Snelle toegangswerkbalk.

Voer de VBA-code uit

Nadat u de knop voor de macro op de werkbalk Snelle toegang hebt toegevoegd, kunt u nu de VBA-code uitvoeren om de leden van de distributielijst te tellen.

1. In Outlook 2010 en 2013 kunt u gewoon een distributielijst selecteren en vervolgens op de knop voor de macro op de Qklik op Toegangswerkbalk.

Note: In Outlook 2007 moet u een distributielijst openen en vervolgens op de knop voor de macro op het Snelle toegangswerkbalk.

2. Er verschijnt dan een promptvenster om u te vertellen hoeveel leden er in deze distributielijst staan. Klik vervolgens op het OK.


Beste Office-productiviteitstools

Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven

🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...

???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP)  /  Plan het verzenden van e-mails  /  Automatische CC/BCC volgens regels bij het verzenden van e-mail  /  Automatisch doorsturen (geavanceerde regels)   /  Begroeting automatisch toevoegen   /  Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...

📨 email management: Gemakkelijk e-mails herinneren  /  Blokkeer zwendel-e-mails van onderwerpen en anderen  /  Verwijder dubbele e-mails  /  Uitgebreid Zoeken  /  Consolideer mappen ...

📁 Bijlagen ProBatch opslaan  /  Batch losmaken  /  Batchcompressie  /  Automatisch opslaan   /  Automatisch loskoppelen  /  Automatisch comprimeren ...

???? Interface-magie: 😊Meer mooie en coole emoji's   /  Verhoog uw Outlook-productiviteit met weergaven met tabbladen  /  Minimaliseer Outlook in plaats van te sluiten ...

???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen  /   Antiphishing-e-mails  /  🕘Toon de tijdzone van de afzender ...

👩🏼‍🤝‍👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails  /  Splits een contactgroep in individuele groepen  /  Verwijder verjaardagsherinneringen ...

Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Wish there was an easier way to find out how many addresses in a contact group, but since there isn't this is about the best method I've seen. Thank you!
This comment was minimized by the moderator on the site
Alternate method is to: create a dummy message with the list expand the list select all copy to Word find and replace: "; " with "^p" [or anything!] dialog box shows number of replacements add 1 to that number
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations