Как пакетно развернуть все группы контактов в поле «Кому» при составлении электронной почты Outlook

Многие пользователи жаждут метода, который позволит им массово развернуть все группы контактов в поле «Кому» при составлении электронной почты Outlook. Поэтому в этом пost, мы поделимся с вами таким подходом.

Обычно, чтобы развернуть группу контактов в поле «Кому», вы можете щелкнуть значок «+» перед названием группы. Однако, таким образом, если в поле «Кому» много групп контактов и вы хотите развернуть их все, это немного утомительно. Таким образом, здесь мы поделимся с вами способом быстро развернуть все группы в поле «Кому» одним щелчком мыши.

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

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. Наконец, вы можете сделать снимок:

• К start с, создайте и составьте новое электронное письмо как обычно.
• Затем добавьте несколько групп контактов в поле «Кому».
• После этого вы можете нажать кнопку макроса на панели быстрого доступа.
• Сразу все группы контактов будут развернуты, как на следующем изображении:

Своевременно спасайте данные Outlook

Как правило, как только вы сталкиваетесь с какими-либо проблемами в Outlook, в первую очередь вам приходит на ум инструмент для восстановления папки «Входящие». Однако чаще всего это не будет иметь никакого эффекта. В таких случаях рекомендуется вернуться к более мощной и надежной утилите, такой как DataNumen Outlook Repair. Он может исправить PST файл в одно мгновение, независимо от того, насколько сильно поврежден ваш PST-файл.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com