Outlook E-poçtu Yaradarkən "Kimə" sahəsindəki bütün əlaqə qruplarını toplu şəkildə necə genişləndirmək olar

Bir çox istifadəçi Outlook e-poçtu yazarkən "Kimə" sahəsindəki bütün əlaqə qruplarını toplu şəkildə genişləndirməyə imkan verən bir üsula can atır. Buna görə də, bu yazıda sizə belə bir yanaşmanı təqdim edəcəyik.

Adətən, "Kimə" sahəsində əlaqə qrupunu genişləndirmək üçün qrup adının qarşısındakı "+" işarəsini vura bilərsiniz. Bununla belə, əgər “To” sahəsində çoxlu əlaqə qrupları varsa və onların hamısını genişləndirmək istəyirsinizsə, bu, bir az yorucudur. Beləliklə, biz burada sadəcə bir klik vasitəsilə “Kimə” sahəsində bütün qrupları sürətlə genişləndirməyin bir yolunu paylaşacağıq.

Toplu "Kimə" Sahəsində Bütün Əlaqə Qruplarını Genişləndirin

1. İlk növbədə, Outlook proqramınızı işə salın.
2. Sonra əsas Outlook pəncərəsində "Alt + F11" düymələrini basın.
3. Bundan sonra siz VBA redaktoru ekranına daxil olacaqsınız, orada istifadə olunmamış modula daxil olmalı və ya sadəcə yenisini daxil etməlisiniz.
4. Sonradan aşağıdakı VBA kodunu bu modula köçürün.

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. Bundan sonra, yalnız yuxarı sağ küncdəki çarpaz işarəsinə klikləməklə cari pəncərədən çıxa bilərsiniz.
6. Daha sonra bu VBA layihəsini Mesaj pəncərəsinin Tez Giriş Alətlər Panelinə əlavə etməlisiniz.

• Əvvəlcə yeni bir məktub yaradın.
• Sonra yuxarı sol küncdəki aşağı oxu klikləyin.
• Sonra "Daha çox əmrlər" seçin.
• Yeni dialoq qutusunda siz Tez Giriş Alətlər Panelinə makro əlavə etməyi başa çatdırmaq üçün aşağıdakı şəkildə göstərilən addımları ata bilərsiniz.

7. Nəhayət, bir çəkiliş edə bilərsiniz:

• Başlamaq üçün, həmişəki kimi yeni bir e-poçt yaradın və yazın.
• Sonra "Kimə" sahəsinə bir neçə əlaqə qrupu əlavə edin.
• Bundan sonra, Tez Giriş Alətlər Panelində makro düyməsini klikləyə bilərsiniz.
• Aşağıdakı şəkildəki kimi bütün əlaqə qrupları dərhal genişləndiriləcək:

Outlook məlumatlarınızı vaxtında xilas edin

Ümumiyyətlə, Outlook-da hər hansı bir problemlə qarşılaşan kimi ilk növbədə ağlınıza gələnlər qutusu təmir aləti gələcək. Ancaq çox vaxt heç bir təsir göstərməyəcəkdir. Belə vaxtlarda, kimi daha güclü və etibarlı bir yardım proqramına təkrar müraciət etmək tövsiyə olunur DataNumen Outlook Repair. Mümkündür PST-ni düzəldin PST faylınızın nə dərəcədə zədələnməsindən asılı olmayaraq, faylı bir anda bərpa edin.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com