Wie zählt man die Mitglieder einer Verteilerliste in Outlook?

Die Verwaltung von Kontaktgruppen in Outlook kann manchmal herausfordernd sein – besonders, wenn Sie die genaue Anzahl der Mitglieder einer Verteilerliste ermitteln möchten. Outlook bietet hierfür keine integrierte Funktion, weshalb viele Anwender unsicher sind, wie sie schnell und zuverlässig an diese Information gelangen. In diesem Artikel stellen wir zwei Lösungsansätze vor: eine manuelle Methode mithilfe von VBA und die deutlich einfachere, schnellere Alternative mit Kutools für Outlook. Wenn Ihnen Benutzerfreundlichkeit und Effizienz wichtig sind, wird Sie die zweite Methode besonders überzeugen.

Zählen der Mitglieder einer Verteilerliste mithilfe von VBA-Code(Manuell und zeitaufwendig)

• Schritt 1: Erstellen und speichern Sie den VBA-Code
• Schritt 2: Fügen Sie eine Schaltfläche für das Makro zur Symbolleiste für den Schnellzugriff hinzu
• Schritt 3: Führen Sie den VBA-Code aus

Mitglieder von Kontaktgruppe sofort mit Kutools für Outlook zählen 👍(Schnell und mühelos)

---

Zählen der Mitglieder einer Verteilerliste mithilfe von VBA-Code

Für technisch versierte Anwender bietet „VBA“ (Visual Basic for Applications) eine effektive Möglichkeit, die Mitglieder einer Verteilerliste zu zählen – erfordert jedoch etwas Aufwand bei der Einrichtung und Ausführung.

Schritt 1: Erstellen und speichern Sie den VBA-Code

1. Drücken Sie „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Klicken Sie in der Symbolleiste auf „Einfügen“ > „Modul“.

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

VBA: Mitglieder einer Verteilerliste in Outlook zählen

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 auf das „Speichern“-Symbol und schließen Sie danach den VBA-Editor.

Schritt 2: Fügen Sie eine Schaltfläche für das Makro zur Symbolleiste für den Schnellzugriff hinzu

1. Navigieren Sie in Outlook über die Navigation zu „Personen“ oder „Kontakte“, um zur entsprechenden Personen- bzw. Kontakteansicht zu wechseln.

2. Klicken Sie mit der rechten Maustaste auf die „Symbolleiste für den Schnellzugriff“ und wählen Sie im Kontextmenü „Symbolleiste für den Schnellzugriff anpassen“.

3. Führen Sie im Dialogfeld „Outlook-Optionen“ die folgenden Schritte aus:

• 1). Wählen Sie im Feld „Befehle auswählen“ die Option „Makros“.
• 2). Wählen Sie das erstellte Makro in der Liste aus, klicken Sie auf „Hinzufügen“ und dann auf „OK“.

Schritt 3: Führen Sie den VBA-Code aus

Nachdem Sie die Makroschaltfläche zur Symbolleiste für den Schnellzugriff hinzugefügt haben, können Sie nun den VBA-Code ausführen, um die Mitglieder der Verteilerliste zu zählen.

1. Wählen Sie die gewünschte Verteilerliste aus und klicken Sie dann auf die Makroschaltfläche in der Symbolleiste für den Schnellzugriff.

2. Es erscheint eine Meldung, die die Anzahl der Mitglieder der Verteilerliste anzeigt.

---

---

Mitglieder von Kontaktgruppe sofort mit Kutools für Outlook zählen 👍

Wenn Sie eine schnellere, einfachere und intuitivere Lösung suchen, ist „Kutools für Outlook“ das perfekte Werkzeug: Mit nur einem einzigen Klick liefert die Funktion „Information“ sofort die Anzahl der Mitglieder einer Verteilerliste – ganz ohne technische Einrichtung. Zudem erhalten Sie wertvolle Zusatzinformationen zur Gruppe. Ein Muss für jeden Outlook-Anwender!

1. Öffnen Sie die gewünschte Kontaktgruppe und klicken Sie anschließend auf „Kutools“ > „Information“.

2. Sofort sehen Sie die „Gesamtanzahl der Mitglieder“, das „Erstellungsdatum“ sowie das „Datum der letzten Änderung“.