Birdən çox Outlook E-poçtunun Əlavə Siyahılarını Çap Etməyin 2 Sürətli Metodları

Bəzən birdən çox e-poçtun qoşma siyahılarını çıxarıb çap etməli olacaqsınız. Bu yazıda onu əldə etməyin 2 üsulunu sizə öyrədəcəyik.

İstinadlarınız üçün birdən çox qoşma olan bir neçə e-məktub alsanız, bu qoşma adlarını çap etmək istəyə bilərsiniz. Bu vəziyyətdə, onu necə toplu şəkildə əldə edə bilərsiniz? Bundan sonra biz sizə yalnız çoxlu Outlook e-poçtlarının qoşma siyahılarını tez çap etməyin 2 yolunu öyrədəcəyik.

Metod 1: Zəngin Mətn Formatında Qoşma Siyahını Çap edin və Kopyalayın

1. Ən başlanğıcda Outlook e-poçtunu açın.
2. Sonra, Mesaj pəncərəsində "Fəaliyyətlər" düyməsini basın və "Mesajı redaktə et" seçin.
3. Sonra, "Zəngin mətn" formatını seçdiyi "Mətni Formatla" sekmesine keçin.
4. Bir anda, e-poçt əlavələrinin bədənə köçürüldüyünü görə bilərsiniz.
5. Bundan sonra, "Mesaj" sekmesinde "Cavab vermək" qrupunda "Cavab vermək" düyməsini basın.
6. Sonrakı poçtda əlavələr siyahısı aşağıdakı ekran görüntüsü kimi artıq bədəndə olub.
7. İndi siz qoşma siyahısını yeni e-poçta kopyalaya bilərsiniz.
8. Daha sonra digər e-poçtların əlavə siyahılarını yeni məktuba köçürmək üçün bu üsuldan istifadə edin.
9. Nəhayət, bu yeni məktubu həmişəki kimi çap edə bilərsiniz.

Metod 2: Outlook VBA vasitəsilə qoşma siyahılarını çap edin

1. Başlamaq üçün Outlook VBA redaktorunu açmaq üçün "Alt + F11" düymələrini basın.
2. Sonra aşağıdakı VBA kodunu modula köçürün.

Sub PrintAttachmentListsOfManyEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objTempMail As Outlook.MailItem
    
    'Get the selected emails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
       'Input the attachment lists into a temp mail
       Set objTempMail = Outlook.Application.CreateItem(olMailItem)
 
       For i = 1 To objSelection.Count
           If objSelection(i).Class = olMail Then
              Set objMail = objSelection(i)
              If objMail.Attachments.Count > 0 Then
 
                 objTempMail.Body = objTempMail.Body & vbCr & "-------------------------------------------------------------------------------------------------------------" & vbCr & vbCr & i & ". " & objMail.Subject & vbCr & vbCr & "Attachment List:" & vbCr
 
                 For n = 1 To objMail.Attachments.Count
                     Set objAttachment = objMail.Attachments(n)
                     objTempMail.Body = objTempMail.Body & vbCr & "<<" & objAttachment.FileName & " Size: " & Round(objAttachment.Size / 1024, 1) & " KB>>"
                 Next
              End If
           End If
       Next

       'Print the temp mail
       objTempMail.PrintOut
     End If
End Sub

3. Daha sonra məqaləyə istinad edərək bu makronu Tez Giriş Alətlər Panelinə əlavə edin – “Outlook-da VBA kodunu necə işlətmək olar".
4. Nəhayət, bu makronu sınayın.

• Əvvəlcə bir neçə e-poçt seçin.
• Sonra, Tez Giriş Alətlər Panelində makro düyməsini basın.
• Bu e-poçtların əlavə siyahıları dərhal çap edilməlidir.

Ən yaxşı Outlook Təmir Alətinə müraciət edin

Outlook faylının zədələnməsi ilə qarşılaşdığınız zaman, əlinizdə son bir Outlook məlumat ehtiyat nüsxəsinin olması ən yaxşı xəbər olmalıdır. Bu, mürəkkəb Outlook fayl düzəlişindən qurtulmanıza imkan verə bilər. Ancaq bəzən ehtiyat nüsxəni bərpa etmək uğursuz ola bilər. Bu nöqtədə, kimi daha mükəmməl və peşəkar bir düzəltmə vasitəsinə müraciət etməlisiniz DataNumen Outlook Repair. Təmir edə bilər pozulmuş PST dəqiqə ərzində.

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 təmir mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com