Kako paketno razširiti vse skupine stikov v polju »Za«, ko sestavljate Outlookovo e-pošto

Mnogi uporabniki hrepenijo po metodi, ki bi jim omogočila, da pri pisanju e-poštnega sporočila v Outlooku množično razširijo vse skupine stikov v polju »Za«. Zato vam bomo v tej objavi predstavili takšen pristop.

Običajno lahko za razširitev skupine stikov v polju »Za« kliknete ikono »+« pred imenom skupine. Če pa je na ta način v polju »Za« veliko skupin stikov in jih želite vse razširiti, je to nekoliko dolgočasno. Zato vam bomo tukaj delili način za hitro razširitev vseh skupin v polju »Za« preprosto s klikom.

Paketno razširi vse skupine stikov v polju »Za«.

1. Najprej zaženite program Outlook.
2. Nato v glavnem Outlookovem oknu pritisnite tipke “Alt + F11”.
3. Nato boste prišli na zaslon urejevalnika VBA, v katerem bi morali dostopati do neuporabljenega modula ali preprosto vstaviti novega.
4. Nato v ta modul kopirajte naslednjo kodo VBA.

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. Po tem lahko zapustite trenutno okno samo s klikom na ikono križca v zgornjem desnem kotu.
6. Pozneje morate ta projekt VBA dodati v orodno vrstico za hitri dostop okna za sporočila.

• Najprej ustvarite novo pošto.
• Nato kliknite puščico navzdol v zgornjem levem kotu.
• Nato izberite »Več ukazov«.
• V novem pogovornem oknu lahko izvedete korake, prikazane na spodnji sliki, da dokončate dodajanje makra v orodno vrstico za hitri dostop.

7. Končno lahko posnamete posnetek:

• Za začetek ustvarite in sestavite novo e-pošto kot običajno.
• Nato dodajte več skupin stikov v polje »Za«.
• Po tem lahko kliknete gumb makra v orodni vrstici za hitri dostop.
• Vse skupine stikov bodo hkrati razširjene, kot je naslednja slika:

Pravočasno rešite svoje Outlookove podatke

Na splošno, takoj ko se soočite s kakršnimi koli težavami v vašem Outlooku, vam bo najprej prišlo na misel orodje za popravilo mape »Prejeto«. Vendar pogosteje kot ne, ne bo imelo nobenega učinka. V takšnih trenutkih je priporočljivo, da se vrnete k močnejšemu in zaupanja vrednemu pripomočku, kot je npr DataNumen Outlook Repair. Lahko popraviti PST datoteko v trenutku, ne glede na to, kako močno je poškodovana vaša datoteka PST.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z obnoviti sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com