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
- Automatisieren Sie den E-Mail-Versand mit Auto CC / BCC, Automatische Weiterleitung nach Regeln; schicken Automatische Antwort (Abwesend) ohne dass ein Exchange-Server erforderlich ist ...
- Erhalten Sie Erinnerungen wie BCC-Warnung wenn Sie auf alle antworten, während Sie sich in der BCC-Liste befinden, und Bei fehlenden Anhängen erinnern für vergessene Anhänge...
- Verbessern Sie die E-Mail-Effizienz mit (Allen) mit Anhängen antworten, Begrüßung oder Datum und Uhrzeit automatisch zur Signatur oder zum Betreff hinzufügen, Beantworten Sie mehrere E-Mails...
- Optimieren Sie den E-Mail-Versand mit E-Mails abrufen, Anbaugeräte (Alles komprimieren, Alles automatisch speichern...), Duplikate entfernen und Kurzbericht...
Zä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.
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 Pro: Batch 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.