Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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 browsen met tabbladen in Office in en maak het werk veel gemakkelijker ...
Kutools for Outlook - Brengt 100 krachtige geavanceerde functies naar Microsoft Outlook
  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails volgens regels; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u iedereen probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het mailgesprek; Beantwoord veel e-mails tegelijk; Begroeting automatisch toevoegen wanneer antwoord; Datum en tijd automatisch toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: Automatisch loskoppelen, alles comprimeren, alles hernoemen, alles automatisch opslaan ... Quick Report, Tel geselecteerde e-mails, Dubbele e-mails en contacten verwijderen ...
  • Meer dan 100 geavanceerde functies zullen los de meeste van uw problemen op in Outlook 2010-2019 en 365. Volledige gratis proefperiode van 60 dagen.

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 Medewerker bekijken door op het Contacten or Medewerker functie in het 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:

Opmerking:: 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 functie in het 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.

Opmerking:: 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.


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    albert_tf · 4 years ago
    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!
  • To post as a guest, your comment is unpublished.
    willie x. gluck · 7 years ago
    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