Sastādot Outlook e-pastu, kā partijā izvērst visas kontaktpersonu grupas laukā “Kam”

Daudzi lietotāji ilgojas pēc metodes, kas, rakstot Outlook e-pastu, ļautu viņiem vairumā izvērst visas kontaktu grupas laukā “Kam”. Tāpēc šajā ierakstā mēs dalīsimies ar šādu pieeju.

Parasti, lai paplašinātu kontaktu grupu laukā “Kam”, grupas nosaukuma priekšā varat noklikšķināt uz ikonas “+”. Tomēr, ja laukā “Kam” ir daudz kontaktu grupu un ja vēlaties tās visas paplašināt, tas ir mazliet nogurdinoši. Tādējādi šeit mēs jums pastāstīsim, kā ātri paplašināt visas grupas laukā “Kam”, vienkārši noklikšķinot.

Sadaļā Izvērst visas kontaktpersonu grupas laukā “Kam”

1. Pirmkārt, palaidiet savu Outlook programmu.
2. Pēc tam galvenajā Outlook logā nospiediet taustiņu pogas “Alt + F11”.
3. Pēc tam jūs nokļūsit VBA redaktora ekrānā, kurā jums vajadzētu piekļūt neizmantotam modulim vai vienkārši ievietot jaunu.
4. Pēc tam šajā modulī nokopējiet šādu VBA kodu.

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. Pēc tam jūs varat iziet no pašreizējā loga, vienkārši noklikšķinot uz krustiņa ikonas augšējā labajā stūrī.
6. Vēlāk šis VBA projekts jāpievieno ziņojuma ātrās piekļuves rīkjoslai.

• Vispirms izveidojiet jaunu pastu.
• Pēc tam augšējā kreisajā stūrī noklikšķiniet uz lejupvērstās bultiņas.
• Pēc tam izvēlieties “Vairāk komandu”.
• Jaunajā dialoglodziņā varat veikt tālāk redzamajā attēlā norādītās darbības, lai pabeigtu makro pievienošanu ātrās piekļuves rīkjoslai.

7. Visbeidzot, jūs varat fotografēt:

• Lai sāktu, izveidojiet un sastādiet jaunu e-pastu kā parasti.
• Pēc tam laukā “Kam” pievienojiet vairākas kontaktpersonu grupas.
• Pēc tam ātrās piekļuves rīkjoslā varat noklikšķināt uz makro pogas.
• Vienlaikus visas kontaktu grupas tiks paplašinātas, piemēram, šāds attēls:

Savlaicīgi glābiet savus Outlook datus

Parasti, tiklīdz saskaras ar jebkādām jūsu Outlook problēmām, iesūtnes labošanas rīks vispirms radīsies jūsu prātā. Tomēr biežāk tas neradīs nekādas sekas. Šādos gadījumos ieteicams atkārtoti izmantot spēcīgāku un uzticamāku lietderību, piemēram, DataNumen Outlook Repair. Tā var noteikt PST failu uzreiz, neatkarīgi no tā, cik ļoti jūsu PST fails ir bojāts.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt kv un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar