Як групово розгорнути всі групи контактів у полі “Кому” при складанні електронної пошти Outlook

Багато користувачів прагнуть методу, який дозволив би їм масово розгортати всі групи контактів у полі «Кому» під час написання електронного листа Outlook. Тому в цій публікації ми поділимося з вами таким підходом.

Зазвичай, щоб розгорнути групу контактів у полі «Кому», можна натиснути піктограму «+» перед назвою групи. Однак цим способом, якщо в полі “Кому” багато груп контактів, і якщо ви хочете розширити їх усі, це трохи нудно. Таким чином, тут ми поділимося способом швидкого розширення всіх груп у полі “Кому” за допомогою простого клацання.

Пакетно розгорніть усі групи контактів у полі «Кому»

1. Перш за все, запустіть програму Outlook.
2. Потім у головному вікні Outlook натисніть кнопки Alt + F11.
3. Далі ви потрапите на екран редактора VBA, в якому вам слід отримати доступ до невикористаного модуля або просто вставити новий.
4. Згодом скопіюйте наступний код VBA в цей модуль.

Sub ExpandAllContactGroupsInToField()
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim bContactGroupFound As Boolean
    Dim i As Long
 
    'Get the current mail
    Set objMail = ActiveInspector.CurrentItem
    bContactGroupFound = True
 
    Do While bContactGroupFound = True
       Set objRecipients = objMail.Recipients
       bContactGroupFound = False
 
       'Expand all contact groups in "To" field
       For i = objRecipients.Count To 1 Step -1
           If objRecipients(i).Type = olTo Then
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.Count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        bContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          End If
      Next i
      objRecipients.ResolveAll
    Loop
End Sub

5. Після цього ви можете вийти з поточного вікна, просто натиснувши піктограму хрестика у верхньому правому куті.
6. Пізніше вам потрібно додати цей проект VBA на панель швидкого доступу у вікні повідомлень.

• По-перше, створіть нову пошту.
• Потім натисніть на стрілку вниз у верхньому лівому куті.
• Далі виберіть «Більше команд».
• У новому діалоговому вікні ви можете виконати дії, показані на зображенні нижче, щоб завершити додавання макросу на панель швидкого доступу.

7. Нарешті, ви можете зробити знімок:

• Для початку створіть та напишіть новий електронний лист як завжди.
• Потім додайте кілька груп контактів у поле “Кому”.
• Після цього ви можете натиснути кнопку макросу на панелі швидкого доступу.
• Одночасно всі контактні групи будуть розширені, як показано на малюнку:

Врятуйте дані Outlook вчасно

Як правило, як тільки ви зіткнетеся з будь-якими проблемами у своєму Outlook, вам насамперед спаде на думку інструмент відновлення папки "Вхідні". Однак частіше за все це не дасть жодних ефектів. У такі моменти рекомендується повернутися до більш потужної та надійної утиліти, наприклад DataNumen Outlook Repair. Він може виправити PST миттєво, незалежно від того, наскільки сильно пошкоджений ваш файл PST.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити sql та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com