Ako je možné pri vytváraní e-mailu v Outlooku dávkovo rozšíriť všetky skupiny kontaktov v poli „Komu“

Mnoho používateľov túži po metóde, ktorá by im umožnila hromadne rozbaliť všetky skupiny kontaktov v poli „Komu“ pri písaní e-mailu v programe Outlook. Preto sa s vami v tomto príspevku podelíme o takýto prístup.

Ak chcete skupinu kontaktov rozbaliť v poli „Komu“, zvyčajne môžete kliknúť na ikonu „+“ pred názvom skupiny. To znamená, že ak je v poli „To“ veľa skupín kontaktov a ak ich chcete rozšíriť, je to trochu zdĺhavé. Preto vás tu zdieľame so spôsobom, ako rýchlo rozšíriť všetky skupiny v poli „Komu“ jednoduchým kliknutím.

Dávkovo rozbaľte všetky skupiny kontaktov v poli „Komu“

1. V prvom rade spustite program Outlook.
2. Potom v hlavnom okne programu Outlook stlačte klávesové skratky „Alt + F11“.
3. Ďalej sa dostanete na obrazovku editora VBA, na ktorej by ste mali otvoriť nepoužívaný modul alebo jednoducho vložiť nový.
4. Následne skopírujte nasledujúci kód VBA do tohto modulu.

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. Potom môžete súčasné okno opustiť jednoduchým kliknutím na ikonu krížika v pravom hornom rohu.
6. Neskôr musíte tento projekt VBA pridať na panel nástrojov Rýchly prístup v okne Správa.

• Najskôr vytvorte nový e-mail.
• Potom kliknite na šípku nadol v ľavom hornom rohu.
• Ďalej zvoľte „Viac príkazov“.
• V novom dialógovom okne môžete podľa pokynov na obrázku nižšie pridať makro na panel s nástrojmi Rýchly prístup.

7. Na záver môžete urobiť snímku:

• Na začiatok vytvorte a napíšte nový e-mail ako obvykle.
• Potom do poľa „Komu“ pridajte niekoľko skupín kontaktov.
• Potom môžete kliknúť na tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• Naraz sa rozšíria všetky skupiny kontaktov, napríklad nasledujúci obrázok:

Zachráňte svoje údaje z Outlooku včas

Spravidla, akonáhle narazíte na akékoľvek problémy vo vašom Outlooku, na prvom mieste vám napadne nástroj na opravu doručenej pošty. Častejšie to však nebude mať žiadne účinky. V takomto čase sa odporúča znovu použiť silnejšiu a dôveryhodnejšiu utilitu, ako je napr DataNumen Outlook Repair, Môže opraviť PST súbor okamžite, bez ohľadu na to, ako extrémne je váš súbor PST poškodený.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane obnoviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S