Direkt zum Inhalt

Wie zähle ich Verteilerlistenmitglieder in Outlook?

In Outlook gibt es keine Funktion, mit der Sie die Mitglieder der Verteilerliste direkt zählen können. Wenn Sie eine Verteilerliste mit einer großen Anzahl von E-Mail-Adressen haben, wie können Sie herausfinden, wie viele Mitglieder in dieser Gruppe enthalten sind? In diesem Artikel erfahren Sie, wie Sie Verteilerlistenmitglieder mithilfe von VBA-Code zählen.

Zählen Sie die Mitglieder der Verteilerliste in Outlook mit VBA-Code

Erstellen und speichern Sie einen VBA-Code

Fügen Sie der Symbolleiste für den Schnellzugriff eine Schaltfläche für das Makro hinzu

Führen Sie den VBA-Code aus

Office-Registerkarte – Ermöglichen Sie das Bearbeiten und Durchsuchen mit Registerkarten in Microsoft Office und machen Sie die Arbeit zum Kinderspiel
Kutools für Outlook – Steigern Sie Outlook mit über 100 erweiterten Funktionen für überragende Effizienz
Verbessern Sie Ihr Outlook 2021 – 2010 oder Outlook 365 mit diesen erweiterten Funktionen. Genießen Sie eine umfassende 60-tägige kostenlose Testversion und verbessern Sie Ihr E-Mail-Erlebnis!

Pfeil blau rechte BlaseZählen Sie die Mitglieder der Verteilerliste in Outlook mit VBA-Code

Sie können VBA-Code verwenden, um die Verteilerlistenmitglieder wie folgt zu zählen.

Erstellen und speichern Sie einen VBA-Code

1. Öffnen Sie die Microsoft Visual Basic für Applikationen Fenster mit Drücken der Andere + F11 Tasten gleichzeitig auf der Tastatur.

2 Klicken Insert > Modul. Siehe Screenshot:

3. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in den Code ein VbaProjekt Fenster.

VBA: Verteilen Sie Verteilerlistenmitglieder 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. Klicken Sie dann auf Speichern Schaltfläche, um es zu speichern.

5. Schließe Microsoft Visual Basic für Applikationen Fenster.

Fügen Sie der Symbolleiste für den Schnellzugriff eine Schaltfläche für das Makro hinzu

1. Gehen Sie zum Kontakt or Personen Klicken Sie auf Kontakt or Personen der Navigationsbereich.

2. Klicken Sie in Outlook 2010 und 2013 mit der rechten Maustaste auf Quick Access Toolbar und klicken Sie dann auf Anpassen der Symbolleiste für den Schnellzugriff im Kontextmenü. Siehe Screenshot:

Note: Öffnen Sie in Outlook 2007 eine Verteilerliste und klicken Sie mit der rechten Maustaste auf Quick Access Toolbar um den zu wählen Quick Access Toolbar im Kontextmenü.

3. In dem Outlook-Optionen Dialogfeld müssen Sie:

1). Stellen Sie sicher, dass Sie sich in der befinden Quick Access Toolbar Sektion;

2). Wählen Makros der Wählen Sie Befehle aus Dropdown-Liste;

3). Wählen Sie die Makros in der Separator Box;

4). Drücke den Speichern Taste;

5). Und zum Schluss klicken Sie auf OK Taste. Siehe Screenshot:

4. Dann können Sie sehen, dass die Schaltfläche für das Makro auf der hinzugefügt wird Quick Access Toolbar.

Führen Sie den VBA-Code aus

Nachdem Sie die Schaltfläche für das Makro in der Symbolleiste für den Schnellzugriff hinzugefügt haben, können Sie jetzt den VBA-Code ausführen, um die Mitglieder der Verteilerliste zu zählen.

1. In Outlook 2010 und 2013 können Sie einfach eine Verteilerliste auswählen und dann auf die Schaltfläche für das Makro im Q klickenKlicken Sie auf die Symbolleiste.

Note: In Outlook 2007 müssen Sie eine Verteilerliste öffnen und dann auf die Schaltfläche für das Makro im klicken Quick Access Toolbar.

2. Anschließend wird ein Eingabeaufforderungsfeld angezeigt, in dem Sie darüber informiert werden, wie viele Mitglieder in dieser Verteilerliste enthalten sind. Klicken Sie dann auf OK.


Beste Office-Produktivitätstools

Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks

🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...

📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP)  /  Planen Sie das Senden von E-Mails  /  Automatisches CC/BCC nach Regeln beim E-Mail-Versand  /  Automatische Weiterleitung (erweiterte Regeln)   /  Begrüßung automatisch hinzufügen   /  Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails einfach abrufen  /  Blockieren Sie betrügerische E-Mails nach Betreff und anderen  /  Doppelte E-Mails löschen  /  Erweiterte Suche  /  Ordner konsolidieren ...

📁 Anhänge ProBatch speichern  /  Stapeltrennung  /  Stapelkomprimierung  /  Automatisches Speichern   /  Automatische Trennung  /  Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis   /  Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten  /  Ausblick minimieren statt schließen ...

👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten  /   Anti-Phishing-E-Mails  /  🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu  /  Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf  /  Geburtstagserinnerungen entfernen ...

Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.

 

 

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