2 Metode Cepat untuk Mencetak Daftar Lampiran dari Beberapa Email Outlook

Terkadang, Anda perlu mengekstrak dan mencetak daftar lampiran beberapa email. Pada artikel ini, kami akan mengajari Anda 2 metode untuk mendapatkannya.

Jika Anda menerima beberapa email dengan banyak lampiran sebagai referensi Anda, Anda mungkin ingin mencetak nama lampiran ini. Dalam situasi ini, bagaimana Anda bisa mendapatkannya secara massal? Selanjutnya, kami akan mengajari Anda 2 cara untuk mencetak daftar lampiran dengan cepat hanya dari beberapa email Outlook.

Metode 1: Cetak & Salin Daftar Lampiran dalam Format Teks Kaya

1. Pertama-tama, buka email Outlook.
2. Kemudian, di jendela Pesan, klik "Tindakan" dan pilih "Edit Pesan".
3. Selanjutnya, beralih ke tab "Format Teks", di mana pilih format "Teks Kaya".
4. Sekaligus, Anda dapat melihat bahwa lampiran email dipindahkan ke badan.
5. Setelah itu, klik tombol "Balas" di grup "Tanggapi" pada tab "Pesan".
6. Di email selanjutnya, attachment list sudah ada di body, seperti screenshot di bawah ini.
7. Sekarang Anda dapat menyalin daftar lampiran ke email baru.
8. Nanti, gunakan metode ini untuk menyalin daftar lampiran email lain ke email baru.
9. Terakhir, Anda dapat mencetak email baru ini seperti biasa.

Metode 2 ： Cetak Daftar Lampiran melalui Outlook VBA

1. Sebagai langkah awal, tekan “Alt + F11” untuk membuka editor VBA Outlook.
2. Kemudian, salin kode 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. Setelah itu, tambahkan makro ini ke Bilah Alat Akses Cepat dengan merujuk ke artikel - “Cara Menjalankan Kode VBA di Outlook Anda".
4. Akhirnya, coba makro ini.

• Pertama, pilih beberapa email.
• Lalu, klik tombol makro di Bilah Alat Akses Cepat.
• Daftar lampiran email ini harus segera dicetak.

Gunakan Alat Perbaikan Outlook Tip-top

Saat Anda menemukan kerusakan file Outlook, pasti kabar terbaiknya adalah Anda memiliki cadangan data Outlook terbaru di tangan. Ini dapat memungkinkan Anda untuk menyingkirkan perbaikan file Outlook yang rumit. Namun, terkadang cadangan gagal dipulihkan. Pada titik itu, Anda harus menggunakan alat perbaikan yang lebih terkenal dan profesional, seperti DataNumen Outlook Repair. Itu bisa diperbaiki PST korup dalam hitungan menit.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaiki mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com