Как да разгънете групово всички групи контакти в полето „До“, когато съставяте имейл на 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 и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com