Kako grupno proširiti sve grupe kontakata u polju "Prima" prilikom sastavljanja Outlook e-pošte

Mnogi korisnici žude za metodom koja im omogućuje proširenje svih grupa kontakata u polju "Prima" prilikom sastavljanja e-pošte u Outlooku. Stoga ćemo u ovom postu podijeliti s vama takav pristup.

Obično, da biste proširili grupu kontakata u polju "Prima", možete kliknuti ikonu "+" ispred naziva grupe. Međutim, na ovaj način, ako postoji mnogo grupa kontakata u polju "Prima" i ako ih želite sve proširiti, to je malo zamorno. Stoga ćemo ovdje podijeliti s vama način brzog proširenja svih grupa u polju “Prima” jednostavnim klikom.

Grupno proširite sve grupe kontakata u polju "Prima".

1. Prvo pokrenite svoj program Outlook.
2. Zatim u glavnom prozoru programa Outlook pritisnite tipke "Alt + F11".
3. Zatim ćete doći do zaslona VBA uređivača, u kojem trebate pristupiti neiskorištenom modulu ili jednostavno umetnuti novi.
4. Nakon toga kopirajte sljedeći VBA kod u ovaj modul.

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. Nakon toga možete izaći iz trenutnog prozora jednostavnim klikom na ikonu križića u gornjem desnom kutu.
6. Kasnije trebate dodati ovaj VBA projekt na alatnu traku za brzi pristup prozora poruka.

• Najprije stvorite novu poštu.
• Zatim kliknite na strelicu prema dolje u gornjem lijevom kutu.
• Zatim odaberite "Više naredbi".
• U novom dijaloškom okviru možete poduzeti korake prikazane na slici ispod kako biste dovršili dodavanje makronaredbe na alatnu traku za brzi pristup.

7. Konačno, možete snimiti:

• Za početak, kreirajte i sastavite novu e-poštu kao i obično.
• Zatim dodajte nekoliko grupa kontakata u polje "Prima".
• Nakon toga možete kliknuti gumb makronaredbe na alatnoj traci za brzi pristup.
• Odjednom će se sve grupe kontakata proširiti, kao na sljedećoj slici:

Spasite svoje Outlook podatke na vrijeme

Općenito, čim se suočite s bilo kakvim problemom u Outlooku, alat za popravak pristigle pošte će vam pasti na pamet. Međutim, češće nego ne, neće imati nikakvih učinaka. U takvim trenucima preporuča se ponovno koristiti moćniji i pouzdaniji alat, kao što je DataNumen Outlook Repair. To može popraviti PST datoteku u trenu, bez obzira na to koliko je vaša PST datoteka oštećena.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com