Az összes kapcsolattartó csoport kötegelt kibontása a „Címzett” mezőben Outlook e-mail írásakor

Sok felhasználó vágyik egy olyan módszerre, amely lehetővé teszi számukra, hogy tömegesen kibontsák az összes névjegycsoportot a „Címzett” mezőben egy Outlook e-mail írásakor. Ezért ebben a bejegyzésben megosztunk veletek egy ilyen megközelítést.

Általában a „Címzett” mezőben lévő kapcsolati csoport kibontásához kattintson a csoport neve előtti „+” ikonra. Ezáltal azonban, ha sok kapcsolati csoport van a „Címzett” mezőben, és ha mindegyiket ki akarja bővíteni, az kissé fárasztó. Ezért itt megosztunk egy módszert, amellyel gyorsan kibonthatja az összes csoportot a „Címzett” mezőben, egyszerűen egy kattintással.

Kötegelt Bontsa ki az összes kapcsolattartó csoportot a „Címzett” mezőben

1. Először indítsa el az Outlook programot.
2. Ezután az Outlook főablakában nyomja meg az „Alt + F11” billentyűket.
3. Ezután a VBA szerkesztő képernyőjére jutunk, ahol hozzá kell férnünk egy nem használt modulhoz, vagy egyszerűen be kell helyeznünk egy újat.
4. Ezt követően másolja be a következő VBA-kódot ebbe a modulba.

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. Ezután a jobb felső sarokban lévő kereszt ikonra kattintva kiléphet az aktuális ablakból.
6. Később hozzá kell adnia ezt a VBA-projektet az Üzenet ablak Gyorselérési eszköztárához.

• Először is hozzon létre egy új levelet.
• Ezután kattintson a lefelé mutató nyílra a bal felső sarokban.
• Ezután válassza a „További parancsok” lehetőséget.
• Az új párbeszédpanelen az alábbi képen látható lépéseket követve befejezheti a makró hozzáadását a Gyorselérési eszköztárhoz.

7. Végül készíthetsz egy felvételt:

• Először is, hozzon létre és írjon egy új e-mailt a szokásos módon.
• Ezután adjon hozzá több névjegycsoportot a „Címzett” mezőben.
• Ezután kattintson a makró gombra a Gyorselérési eszköztárban.
• Egyszerre az összes névjegycsoport ki lesz bontva, például a következő képen:

Mentse ki az Outlook adatait időben

Általánosságban elmondható, hogy amint bármilyen problémával szembesül az Outlookban, a beérkező levelek javítóeszköze jut először eszébe. Azonban legtöbbször nem lesz semmilyen hatása. Ilyenkor ajánlatos visszatérni egy erősebb és megbízhatóbb segédprogramhoz, mint pl DataNumen Outlook Repair. Az tud javítsd ki a PST-t fájl egy pillanat alatt, függetlenül attól, hogy a PST-fájl milyen súlyosan sérült.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve SQL helyreállítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com