Іноді, коли ви надсилаєте або отримуєте електронне повідомлення з багатьма одержувачами, можливо, вам доведеться створити групу контактів для цих одержувачів. У цій статті буде представлено швидкий спосіб зробити це за допомогою Outlook VBA.
У нашій попередній статтіЯк створити контактну групу зі списку одержувачів”, Ми вивчили загальний метод створення контактної групи для одержувачів електронної пошти. Тобто спочатку вибрати та скопіювати одержувачів з електронних листів, а потім створити групу контактів вручну та вставити одержувачів у поле “Учасники ->”. Очевидно, що цей засіб надзвичайно громіздкий. Тому тут ми представимо інший підхід, який використовуватиме Outlook VBA для швидкого створення нової контактної групи. Ви можете просто натиснути кнопку, не потрібно повторно копіювати та вставляти. Прочитайте далі, щоб отримати детальні кроки та коди VBA.
Створіть контактну групу зі списку одержувачів електронного листа
- Для початку вам слід перейти на вкладку «Розробник» в Outlook.
- Потім на цій вкладці ви можете знайти та натиснути кнопку “Visual Basic”.
- Після цього відкриється нове вікно “Microsoft Visual Basic for Applications”. Тепер слід відкрити новий модуль, натиснувши «Вставити»> «Модуль».
- Далі у новому вікні модуля ви можете скопіювати та вставити в нього такі коди.
Sub createcontactgroupforrecipients()
Dim obApp As Application
Dim olSel As Selection
Dim obj As Object
Dim oMail As MailItem
Dim tempMail As MailItem
Dim Recips As Recipients
Dim ConGroup As DistListItem
Dim strName As String
Set obApp = Outlook.Application
Set olSel = obApp.ActiveExplorer.Selection
For Each obj In olSel
If obj.Class = olMail Then
Set oMail = obj
Set tempMail = oMail.ReplyAll
Set Recips = tempMail.Recipients
Set ConGroup = obApp.CreateItem(olDistributionListItem)
strName = InputBox("Specify a name for the new contact group:")
With ConGroup
.AddMembers Recips
.DLName = strName
'Use ".Save" to directly save the new contact group
.Display
End With
tempMail.Close olDiscard
End If
Next
End Sub
- Пізніше ви зможете вийти з поточного вікна «Visual Basic» і продовжити додавання нового макросу на панель швидкого доступу. Клацніть на стрілку вниз на панелі швидкого доступу та виберіть "Більше команд" зі спадного списку.
- Згодом ви потрапите у вікно “Параметри Outlook”. На цьому етапі вам потрібно виконати такі дії:
- По-перше, встановіть “Вибрати команди з” на “Макроси”.
- Потім знайдіть і виведіть раніше доданий макрос.
- Потім натисніть кнопку «Додати» в центрі.
- Нарешті натисніть кнопку “OK”.
- Після цього ви можете повернутися до своєї поштової панелі Outlook і спробувати.
- Спочатку ви можете переглядати одну пошту в будь-якій папці.
- Потім натисніть кнопку на панелі швидкого доступу, як на малюнку нижче:
- Далі ви отримаєте вікно повідомлення, в якому потрібно вказати ім’я нової групи контактів.
- Пізніше натисніть кнопку «OK». Одразу відкриється нова група контактів, яка містить усіх вибраних одержувачів електронної пошти. Ви можете натиснути «Зберегти та закрити», щоб зберегти його.
Обов’язково в захисті даних Outlook
Через те, що Outlook є вразливим, вам слід вжити достатніх заходів безпеки для захисту своїх даних Outlook. По-перше, вам слід зробити регулярне резервне копіювання даних Outlook. Крім того, вам потрібно знати, як знайти та запустити вбудований засіб відновлення Scanpst.exe. Останньою, але не останньою необхідністю є зоряне зовнішнє пошкоджений інструмент відновлення даних Outlook -, Такі, як DataNumen Outlook Repair, який прийде вам на допомогу, якщо резервне копіювання та Scanpst.exe не вдаються.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт SQL Server помилка бази даних mdf та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com