2 Quick Methods to Print the Attachment Lists of Multiple Outlook Emails

Sometimes, you’ll need to extract and print the attachment lists of multiple emails. In this article, we will teach you 2 methods to get it.

If you receive several emails with multiple attachments for your references, you may want to print out these attachment names. In this situation, how can you get it in bulk? Thereinafter, we will teach you 2 ways to quickly print the attachment lists only of multiple Outlook emails.

Method 1: Print & Copy Attachment List in Rich Text Format

1. At the very outset, open an Outlook email.
2. Then, in the Message window, click “Actions” and select “Edit Message”.
3. Next, turn to “Format Text” tab, on which select “Rich Text” format.
4. At once, you can see that the email attachments are moved to the body.
5. After that, click “Reply” button in “Respond” group on “Message” tab.
6. In the subsequent mail, the attachment list has been already in the body, like the screenshot below.
7. Now you can copy the attachment list to a new email.
8. Later, use this method to copy the attachment lists of other emails to the new mail.
9. Finally, you can print out this new mail as usual.

Method 2： Print Attachment Lists via Outlook VBA

1. For a start, press “Alt + F11” to open Outlook VBA editor.
2. Then, copy the following VBA code into a module.

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. Afterwards, add this macro to Quick Access Toolbar by referring to the article – “How to Run VBA Code in Your Outlook“.
4. Eventually, try this macro.

• At first, choose several emails.
• Then, click the macro button in Quick Access Toolbar.
• At once, the attachment lists of these emails must have been printed out.

Resort to a Tip-top Outlook Repair Tool

When you come across Outlook file damage, it must be best news that you have a recent Outlook data backup in hand. It can permit you to get rid of complicated Outlook file fix. But, sometimes backup can fail to be restored. At that point, you’ll need to take recourse to a more stellar and professional fix tool, like DataNumen Outlook Repair. It can repair corrupt PST within minutes.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including repair mdf and outlook repair software products. For more information visit www.datanumen.com