Kuidas Outlooki meili koostamisel pakkides laiendada kõiki kontaktirühmi väljal „Adressaat”.

Paljud kasutajad igatsevad meetodit, mis võimaldaks neil Outlooki e-kirja koostamisel kõiki kontaktgruppe väljal „Saaja” hulgi laiendada. Seetõttu jagame teiega selles postituses sellist lähenemisviisi.

Tavaliselt võite kontaktirühma laiendamiseks väljal „Saaja” klõpsata rühma nime ees olevat ikooni „+”. Kui aga väljal "To" on palju kontaktgruppe ja kui soovite neid kõiki laiendada, on see veidi tüütu. Seega jagame siin võimalust, kuidas kõiki rühmi väljal „Saaja” lihtsalt ühe klõpsuga kiiresti laiendada.

Pakett Laiendage väljal „Adressaat“ kõik kontaktirühmad

1. Kõigepealt käivitage Outlooki programm.
2. Seejärel vajutage Outlooki põhiaknas klahvikombinatsiooni Alt + F11.
3. Järgmisena pääsete VBA redaktori ekraanile, kus peaksite pääsema juurde kasutamata moodulile või lihtsalt sisestama uue.
4. Seejärel kopeerige sellesse moodulisse järgmine VBA kood.

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ärast seda saate aktiivsest aknast väljuda, klõpsates paremas ülanurgas ristiikoonil.
6. Hiljem peate selle VBA projekti lisama sõnumiakna kiirjuurdepääsu tööriistaribale.

• Kõigepealt looge uus e-kiri.
• Seejärel klõpsake vasakus ülanurgas allanoolt.
• Järgmisena valige "Veel käske".
• Uues dialoogiboksis saate kiirpääsu tööriistaribale makro lisamise lõpuleviimiseks järgida alloleval pildil näidatud samme.

7. Lõpuks saate pildistada:

• Alustuseks looge ja koostage uus e-kiri nagu tavaliselt.
• Seejärel lisage väljale „Saaja” mitu kontaktirühma.
• Pärast seda saate kiirpääsu tööriistaribal klõpsata makronupul.
• Kõik kontaktirühmad laiendatakse korraga, nagu järgmine pilt:

Päästke oma Outlooki andmed õigeaegselt

Üldjuhul tuleb kohe pärast Outlooki probleemidega silmitsi sisendkausta parandamise tööriist esmalt meelde. Kuid enamasti ei avalda see mingit mõju. Sellistel aegadel on soovitatav pöörduda mõne võimsama ja usaldusväärsema utiliidi poole, näiteks DataNumen Outlook Repair. See võib paranda PST faili hetkega, olenemata sellest, kui tõsiselt teie PST-fail on kahjustatud.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql-i taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom