2 Kaedah Pantas untuk Mencetak Senarai Lampiran Beberapa E-mel Outlook

Kadang kala, anda perlu mengekstrak dan mencetak senarai lampiran pelbagai e-mel. Dalam artikel ini, kami akan mengajar anda 2 kaedah untuk mendapatkannya.

Sekiranya anda menerima beberapa e-mel dengan beberapa lampiran untuk rujukan anda, anda mungkin ingin mencetak nama lampiran ini. Dalam keadaan ini, bagaimana anda boleh mendapatkannya secara pukal? Selepas itu, kami akan mengajar anda 2 cara untuk mencetak senarai lampiran dengan cepat hanya beberapa e-mel Outlook.

Kaedah 1: Cetak & Salin Senarai Lampiran dalam Format Teks Kaya

1. Pada awalnya, buka e-mel Outlook.
2. Kemudian, di tetingkap Mesej, klik "Tindakan" dan pilih "Edit Mesej".
3. Selanjutnya, beralih ke tab "Format Teks", di mana pilih format "Teks Kaya".
4. Sekali gus, anda dapat melihat bahawa lampiran e-mel dipindahkan ke isi utama.
5. Setelah itu, klik butang "Balas" dalam kumpulan "Balas" pada tab "Mesej".
6. Dalam surat berikutnya, senarai lampiran sudah ada di badan, seperti tangkapan skrin di bawah.
7. Sekarang anda boleh menyalin senarai lampiran ke e-mel baru.
8. Kemudian, gunakan kaedah ini untuk menyalin senarai lampiran e-mel lain ke surat baru.
9. Akhirnya, anda boleh mencetak surat baru ini seperti biasa.

Kaedah 2: Cetak Daftar Lampiran melalui Outlook VBA

1. Sebagai permulaan, tekan "Alt + F11" untuk membuka editor Outlook VBA.
2. Kemudian, salin kod VBA berikut ke dalam modul.

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. Selepas itu, tambahkan makro ini ke Bar Alat Akses Pantas dengan merujuk pada artikel - “Cara Menjalankan Kod VBA di Outlook Anda".
4. Akhirnya, cuba makro ini.

• Pada mulanya, pilih beberapa e-mel.
• Kemudian, klik butang makro di Bar Alat Akses Pantas.
• Sekaligus, senarai lampiran e-mel ini mesti dicetak.

Gunakan Alat Pembaikan Outlook yang teratas

Apabila anda menemui kerosakan fail Outlook, mesti ada berita terbaik bahawa anda mempunyai cadangan data Outlook baru-baru ini. Ini membolehkan anda menyingkirkan pembaikan fail Outlook yang rumit. Tetapi, kadangkala sandaran gagal dipulihkan. Pada ketika itu, anda perlu menggunakan alat pembaikan yang lebih hebat dan profesional, seperti DataNumen Outlook Repair. Ia boleh diperbaiki PST yang rosak dalam beberapa minit.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk baiki mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com