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

Mnogi korisnici žude za metodom koja im omogućava da prošire sve grupe kontakata u polju "Prima" odjednom prilikom pisanja 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 „Za“, možete kliknuti na ikonu „+“ ispred naziva grupe. Međutim, na ovaj način, ako postoji mnogo grupa kontakata u polju „Za“ i ako želite da ih sve proširite, to je pomalo zamorno. Stoga ćemo vam ovdje podijeliti način da brzo proširite sve grupe u polju „Za“ jednostavnim klikom.

Grupno proširite sve grupe kontakata u polju „Za“.

1. Prvo pokrenite svoj Outlook program.
2. Zatim u glavnom prozoru programa Outlook pritisnite tipke “Alt + F11”.
3. Zatim ćete ući u ekran VBA editora, u kojem treba da pristupite nekorišćenom modulu ili jednostavno ubacite 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 samo klikom na ikonu krsta u gornjem desnom uglu.
6. Kasnije ćete morati da dodate ovaj VBA projekat na traku sa alatkama za brzi pristup prozora poruke.

• Prvo kreirajte novu poštu.
• Zatim kliknite na strelicu nadole u gornjem levom uglu.
• Zatim odaberite “Više naredbi”.
• U novom dijaloškom okviru možete poduzeti korake prikazane na slici ispod kako biste dovršili dodavanje makroa 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 „Za“.
• Nakon toga možete kliknuti na dugme makro na traci sa alatkama za brzi pristup.
• Sve grupe kontakata će se odjednom proširiti, kao na sljedećoj slici:

Spasite svoje Outlook podatke na vrijeme

Općenito, čim se suočite s bilo kakvim problemima u vašem Outlooku, alat za popravku inboxa će vam pasti na pamet. Međutim, češće nego ne, to neće imati nikakve efekte. U takvim trenucima, preporučuje se da se vratite na moćniji i pouzdaniji uslužni program, kao što je DataNumen Outlook Repair. Može popraviti PST datoteku u trenu, bez obzira na to koliko je vaša PST datoteka izuzetno oštećena.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti sql i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com