Jak při vytváření e-mailu aplikace Outlook dávkově rozbalit všechny skupiny kontaktů v poli „Komu“

Mnoho uživatelů touží po metodě, která jim umožní hromadně rozbalit všechny skupiny kontaktů v poli „Komu“ při vytváření e-mailu aplikace Outlook. Proto v této strost, sdílíme vám takový přístup.

Chcete-li skupinu kontaktů v poli „Komu“ rozbalit, můžete obvykle kliknout na ikonu „+“ před názvem skupiny. Tímto způsobem však znamená, že pokud je v poli „To“ mnoho skupin kontaktů a pokud je chcete všechny rozšířit, je to trochu zdlouhavé. Zde vás tedy budeme sdílet způsob, jak rychle kliknutím na jedno kliknutí rychle rozbalit všechny skupiny v poli „To“.

Dávkově rozbalte všechny skupiny kontaktů v poli „Komu“

1. Na prvním místě spusťte program Outlook.
2. Poté v hlavním okně Outlooku stiskněte klávesy „Alt + F11“.
3. Dále se dostanete na obrazovku editoru VBA, na kterou byste měli přistupovat k nepoužívanému modulu nebo jednoduše vložit nový.
4. Následně zkopírujte následující kód VBA do tohoto 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. Poté můžete aktuální okno opustit pouhým kliknutím na ikonu kříže v pravém horním rohu.
6. Později musíte tento projekt VBA přidat na panel nástrojů Rychlý přístup v okně Zprávy.

• Nejprve vytvořte novou poštu.
• Poté klikněte na šipku dolů v levém horním rohu.
• Dále zvolte „Další příkazy“.
• V novém dialogovém okně můžete podle pokynů na obrázku níže přidat makro na panel nástrojů Rychlý přístup.

7. Nakonec můžete pořídit snímek:

• Start s, vytvořit a vytvořit nový e-mail jako obvykle.
• Poté přidejte několik skupin kontaktů do pole „Komu“.
• Poté můžete kliknout na tlačítko makra na panelu nástrojů Rychlý přístup.
• Najednou se rozbalí všechny skupiny kontaktů, například následující obrázek:

Záchrana dat aplikace Outlook včas

Obecně platí, že jakmile narazíte na jakékoli problémy ve vašem Outlooku, nástroj pro opravu doručené pošty vás napadne. Častěji to však nebude mít žádné účinky. V takových dobách se doporučuje použít silnější a důvěryhodnější nástroj, jako je DataNumen Outlook Repair. To může opravit PST soubor okamžitě, bez ohledu na to, jak extrémně je váš soubor PST poškozen.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně obnovit sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com