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
Voeg een knop voor de macro toe aan de werkbalk Snelle toegang
- Automatiseer e-mailen met Auto CC / BCC, Automatisch doorsturen door regels; versturen Auto antwoord (Out of Office) zonder dat er een uitwisselingsserver nodig is...
- Ontvang herinneringen zoals BCC-waarschuwing bij het beantwoorden van iedereen terwijl u in de BCC-lijst staat, en Herinner bij ontbrekende bijlagen voor vergeten bijlagen...
- Verbeter de e-mailefficiëntie met Antwoord (allemaal) met bijlagen, Automatisch begroeting of datum en tijd toevoegen aan handtekening of onderwerp, Beantwoord meerdere e-mails...
- Stroomlijn e-mailen met E-mails intrekken, Hulpmiddelen voor bijlagen (Alles comprimeren, Alles automatisch opslaan...), Verwijder duplicaten en Quick Report...
Tel distributielijstleden in Outlook met VBA-code
U kunt VBA-code gebruiken om de leden van de distributielijst als volgt te tellen.
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.
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 Pro: Batch 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.