Іноді вам може знадобитися розрахувати загальну кількість одержувачів у певному електронному листі. Але Outlook не має очевидної функції «підрахунку», яка б підтримувала його. Тож у цій статті буде представлено 2 підходи для її досягнення.
Наприклад, у деяких ситуаціях, коли ви додаєте велику кількість одержувачів до електронного листа і вам важко керувати ними, ви хочете отримати загальну кількість цих одержувачів. Але Outlook не має власної або стандартної підтримки для підрахунку. Таким чином, вам доведеться докласти додаткових зусиль для його досягнення. Тут ми розповімо вам 2 методи.
Спосіб 1: Підрахуйте кількість одержувачів через контактну групу
- Для початку вам слід вибрати всіх одержувачів у полях «Кому», «Копія» та «Прихована копія» та скопіювати їх у порожнє місце в тілі повідомлення.
- Потім виділіть усіх одержувачів у тілі та також скопіюйте їх.
- Далі перейдіть на панель контактів Outlook і натисніть «Нова група контактів». У спливаючому вікні встановіть ім’я як “Temp”, а потім натисніть “Add Members” та виберіть “From Address Book” зі спадного списку.
- Згодом вставте раніше скопійовані одержувачі в поле «Учасник ->», як на наступному знімку екрана:
- Після цього натисніть кнопку «ОК» і поверніться до групи контактів. Усі дублікати будуть видалені автоматично. Тепер збережіть його на локальний диск як “Текстовий” файл.
- Пізніше відкрийте текстовий файл і видаліть марний заголовок, як на малюнку нижче:
- Нарешті, ви можете розмістити курсор в останньому рядку. Ви побачите загальну кількість рядків у рядку стану. Це загальна кількість одержувачів.
Спосіб 2: Підрахуйте кількість одержувачів за допомогою Outlook VBA
- Спочатку натисніть клавіші “Alt + F11”, щоб відкрити вікно “Visual Basic”.
- Потім скопіюйте та вставте наступні коди VBA в новий модуль.
Sub CountRecipients()
Dim obApp As Outlook.Application
Dim olSel As Selection
Dim olItem As MailItem
Dim Recips As Recipients
Dim strMsg As String
Dim nRes As Integer
Set obApp = Outlook.Application
If TypeName(obApp.ActiveWindow) = "Inspector" Then
Set olItem = obApp.ActiveInspector.CurrentItem
Set Recips = olItem.Recipients
strMsg = "The current message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
Else
Set olItem = obApp.ActiveExplorer.Selection.Item(1)
Set Recips = olItem.Recipients
strMsg = "The selected message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
End If
Set obApp = Nothing
Set olSel = Nothing
Set olItem = Nothing
Set Recips = Nothing
End Sub
- Після цього ви можете вийти з вікна “Visual Basic” та додати новий макрос на панель швидкого доступу головного вікна Outlook та вікна повідомлень.
- Зрештою ви можете спробувати:
- Вибравши електронну пошту та натиснувши кнопку на панелі швидкого доступу, ви отримаєте повідомлення, як показано на малюнку:
- Коли ви відкриваєте електронний лист і натискаєте кнопку, ви отримаєте діалогове вікно, показано на малюнку нижче:
Примітка: Цей метод буде розглядати контактну групу як одного одержувача і не буде обходити повторюваних одержувачів.
Боротьба з небезпечними макросами
Як усім відомо, віруси, що передаються електронною поштою, є однією з найпоширеніших загроз для даних. Тому вкрай важливо налаштувати Outlook лише для ввімкнення макросів із цифровим підписом, які можуть блокувати віруси та шкідливе програмне забезпечення. Крім того, краще підтримувати надійний пошкоджена утиліта відновлення файлів Outlook, Такі, як DataNumen Outlook Repair. Це стане в нагоді, коли ваш Outlook зазнає вірусної інфекції або атаки шкідливого програмного забезпечення.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі виправити помилку даних SQL mdf - - та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com