Как подсчитать количество участников списка рассылки в Outlook?
В Outlook нет функции прямого подсчета членов списка рассылки. Если у вас есть список рассылки с большим количеством адресов электронной почты, как узнать, сколько членов входит в эту группу? Из этой статьи вы узнаете, как подсчитывать членов списка рассылки с помощью кода VBA.
Подсчет членов списка рассылки в Outlook с кодом VBA
Добавьте кнопку для макроса на панель быстрого доступа
- Автоматизируйте отправку писем с помощью Авто CC / BCC, Автопересылка по правилам; отправлять Автоответчик (Нет на работе) без необходимости использования сервера обмена...
- Получайте напоминания, например Предупреждение BCC при ответе всем, пока вы находитесь в списке скрытых копий, и Напоминать об отсутствии вложений за забытые вложения...
- Повысьте эффективность электронной почты с помощью Ответить (всем) с вложениями, Автоматическое добавление приветствия или даты и времени в подпись или тему, Ответить на несколько писем...
- Оптимизируйте электронную почту с помощью Отозвать электронные письма, Инструменты для вложения (Сжать все, Автосохранить все...), Удалить дубликатыи Быстрый отчет...
Подсчет членов списка рассылки в Outlook с кодом 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 для подсчета членов списка рассылки.
1. В Outlook 2010 и 2013 вы можете просто выбрать список рассылки, а затем нажать кнопку макроса на Quick Панель инструментов доступа.
Внимание: В Outlook 2007 вам нужно открыть список рассылки, а затем нажать кнопку макроса на Панель быстрого доступа.
2. Затем появится окно с подсказкой, в котором сообщается, сколько членов содержится в этом списке рассылки. Затем нажмите кнопку OK.
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.