Как подсчитать количество подписчиков в списке рассылки Outlook?

Управление группой контактов в Outlook порой бывает непростым, особенно когда нужно узнать точное количество участников списка рассылки. Поскольку Outlook не предлагает встроенной функции для этого, многие пользователи не знают, как быстро получить нужную информацию. В этой статье мы покажем два способа решения задачи: ручной метод с использованием VBA и гораздо более простой и быстрый — с помощью Kutools для Outlook. Если вы цените простоту и эффективность, второй способ вас обязательно впечатлит.

Подсчёт участников списка рассылки с помощью кода VBA(Вручную и утомительно)

• Шаг 1: создайте и сохраните код VBA
• Шаг 2: добавьте кнопку для макроса на панель быстрого доступа
• Шаг 3: запустите код VBA

Мгновенно подсчитайте участников Группа контактов с помощью Kutools для Outlook 👍(Быстро и без усилий)

---

Подсчёт участников списка рассылки с помощью кода VBA

Для пользователей, знакомых с технической настройкой, «VBA» (Visual Basic for Applications) открывает возможность подсчёта участников списка рассылки. Этот метод эффективен, но требует определённых усилий для настройки и запуска.

Шаг 1: создайте и сохраните код VBA

1. Нажмите «Alt» + «F11», чтобы открыть окно Microsoft Visual Basic for Applications.

2. В панели инструментов выберите «Вставка» → «Модуль».

3. Затем скопируйте и вставьте приведённый ниже код VBA в окно «VbaProject».

VBA: подсчёт участников списка рассылки в 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. Нажмите значок «Сохранить», после чего закройте редактор VBA.

Шаг 2: добавьте кнопку для макроса на панель быстрого доступа

1. Перейдите в раздел «Люди» или «Контакты» в навигации Outlook, чтобы открыть представление «Контакты»/«Люди».

2. Щелкните правой кнопкой мыши по «Панели быстрого доступа» и в контекстном меню выберите «Настроить панель быстрого доступа».

3. В диалоговом окне «Параметры Outlook» выполните следующие действия:

• 1). В поле «Выбрать команды из» выберите «Макросы» в раскрывающемся списке.
• 2). Выберите созданный макрос из списка, нажмите «Добавить», а затем — «OK».

Шаг 3: запустите код VBA

После добавления кнопки макроса на «Панель быстрого доступа» вы сможете запускать код VBA для подсчёта участников списка рассылки.

1. Выберите список рассылки для анализа и нажмите кнопку макроса на «Панели быстрого доступа».

2. Появится окно, в котором будет указано количество участников списка рассылки.

---

---

Мгновенно подсчитайте участников Группа контактов с помощью Kutools для Outlook 👍

Если вы ищете более быстрое, простое и интуитивно понятное решение, «Kutools для Outlook» — идеальный выбор. С помощью функции «Информация» вы одним щелчком мыши мгновенно узнаете количество участников списка рассылки. Этот метод не требует технической настройки и предоставляет дополнительные сведения о группе, делая его незаменимым для пользователей Outlook.

1. После открытия группы контактов, которую требуется проанализировать, нажмите «Kutools» > «Информация».

2. Вы сразу увидите «общее количество участников», «дату создания» и «дату последнего изменения».