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

В Outlook нет функции прямого подсчета членов списка рассылки. Если у вас есть список рассылки с большим количеством адресов электронной почты, как узнать, сколько членов входит в эту группу? Из этой статьи вы узнаете, как подсчитывать членов списка рассылки с помощью кода VBA.

Подсчет членов списка рассылки в Outlook с кодом VBA

Создайте и сохраните код VBA

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

Запустите код VBA

Подсчет членов списка рассылки в Outlook с кодом VBA

Вы можете использовать код VBA для подсчета членов списка рассылки следующим образом.

Создайте и сохраните код VBA

1. Откройте Microsoft Visual Basic для приложений окно с нажатием другой + F11 клавиши на клавиатуре одновременно.

2. Нажмите Вставить > Модули. Смотрите скриншот:

3. Затем скопируйте и вставьте следующий код VBA в ВбаПроект окно.

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. Затем нажмите Сохранить чтобы сохранить его.

5. Закрой Microsoft Visual Basic для приложений окно.

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

1. К Контакты or Люди просмотреть, щелкнув Контакты or Люди в Область переходов.

2. В Outlook 2010 и 2013 щелкните правой кнопкой мыши значок Панель быстрого доступа , а затем нажмите кнопку Настройка панели быстрого доступа в контекстном меню. Смотрите скриншот:

Внимание: В Outlook 2007 откройте список рассылки и щелкните правой кнопкой мыши значок Панель быстрого доступа для выбора Панель быстрого доступа в контекстном меню.

3. в Параметры Outlook диалоговое окно, вам необходимо:

1). Убедитесь, что вы находитесь в Панель быстрого доступа раздел;

2). Выбрать Макрос в Выберите команды из раскрывающийся список;

3). Выберите макросы в Разделитель коробка;

4). Щелкните значок Добавить кнопка;

5). И, наконец, нажмите кнопку OK кнопка. Смотрите скриншот:

4. Затем вы увидите, что кнопка для макроса добавлена ​​на Панель быстрого доступа.

Запустите код VBA

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

1. В Outlook 2010 и 2013 вы можете просто выбрать список рассылки, а затем нажать кнопку макроса на Quick Панель инструментов доступа.

Внимание: В Outlook 2007 вам нужно открыть список рассылки, а затем нажать кнопку макроса на Панель быстрого доступа.

2. Затем появится окно с подсказкой, в котором сообщается, сколько членов содержится в этом списке рассылки. Затем нажмите кнопку OK.

---

Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения Pro: Пакетное сохранение  /  Пакетное отсоединение  /  Пакетное сжатие  /  Автосохранение   /  Авто отсоединение  /  Автоматическое сжатие ...

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем  /  Разделить группу контактов на отдельные группы  /  Удалить напоминания о днях рождения ...

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

Узнать больше       Бесплатная загрузка      покупка