Si të zgjerohen grupore të gjitha grupet e kontaktit në fushën "Për" kur hartoni një email të Outlook

Shumë përdorues dëshirojnë një metodë që mund t'i lejojë ata të zgjerojnë të gjitha grupet e kontakteve në fushën "Për" në masë kur shkruajnë një email Outlook. Prandaj, në këtë postim, do t'ju tregojmë për një qasje të tillë.

Zakonisht, për të zgjeruar një grup kontakti në fushën "Për", mund të klikoni ikonën "+" përpara emrit të grupit. Megjithatë, në këtë mënyrë, nëse ka shumë grupe kontakti në fushën "Për" dhe nëse dëshironi t'i zgjeroni të gjitha, është pak e lodhshme. Kështu, këtu do t'ju ndajmë një mënyrë për të zgjeruar shpejt të gjitha grupet në fushën "Për" thjesht me një klikim.

Batch Zgjeroni të gjitha grupet e kontaktit në fushën "Për".

1. Në radhë të parë, nisni programin tuaj Outlook.
2. Pastaj në dritaren kryesore të Outlook, shtypni butonat "Alt + F11".
3. Më pas do të futeni në ekranin e redaktuesit VBA, në të cilin duhet të përdorni një modul të papërdorur ose thjesht të futni një të ri.
4. Më pas, kopjoni kodin e mëposhtëm VBA në këtë 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. Pas kësaj, mund të dilni nga dritarja aktuale vetëm duke klikuar ikonën kryq në këndin e sipërm të djathtë.
6. Më vonë ju duhet ta shtoni këtë projekt VBA në dritaren e shiritit të veglave të aksesit të shpejtë të mesazheve.

• Së pari, krijoni një postë të re.
• Pastaj klikoni në shigjetën poshtë në këndin e sipërm të majtë.
• Pastaj zgjidhni "Më shumë komanda".
• Në kutinë e re të dialogut, mund të ndërmerrni hapat e treguar në imazhin më poshtë për të përfunduar shtimin e makrove në shiritin e veglave të aksesit të shpejtë.

7. Më në fund, mund të bëni një fotografi:

• Për të filluar, krijoni dhe hartoni një email të ri si zakonisht.
• Pastaj shtoni disa grupe kontakti në fushën "Për".
• Pas kësaj, mund të klikoni butonin makro në shiritin e veglave të aksesit të shpejtë.
• Menjëherë, të gjitha grupet e kontaktit do të zgjerohen, si imazhi i mëposhtëm:

Shpëtoni të dhënat tuaja të Outlook në kohë

Në përgjithësi, sapo të përballeni me ndonjë problem në Outlook-in tuaj, mjeti i riparimit të kutisë hyrëse do t'ju vijë në mendje në radhë të parë. Megjithatë, më shpesh sesa jo, nuk do të ketë ndonjë efekt. Në raste të tilla, rekomandohet të ktheheni te një mjet më i fuqishëm dhe më i besueshëm, si p.sh DataNumen Outlook Repair. Mundet rregulloni PST skedar në një çast, pavarësisht se sa jashtëzakonisht është dëmtuar skedari juaj PST.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperoni sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com