How to Exclude Embedded Images when Printing an Outlook Email

Sometimes, you may simply want to print out the text of an email, not including the embedded images. Rather than removing the images before printing, you can apply the method introduced in this article. It can auto exclude images when printing.

As we all know, printing images is ink-wasting. Therefore, at times, when printing an email, you may think that the inserted images are useless. Thus, you may wish to exclude the images when printing an email. In this case, you could utilize the following way to achieve it with effortless ease.

Exclude Embedded Images when Printing an Email

1. First off, launch Outlook application.
2. Then, access Outlook VBA editor according to the article – “How to Run VBA Code in Your Outlook”.
3. Subsequently, you need to enable the “MS Word Object Library”, about which you can refer to “How to Add an Object Library Reference in VBA”.
4. After that, put the following VBA code into an unused module.

Sub ExcludeEmebeddedImagesWhenPrintingEmail()
    Dim objMail As Outlook.MailItem
    Dim strMailDocument As String
    Dim objWordApp As Word.Application
    Dim objMailDocument As Word.Document
    Dim objInlineShape As Word.InlineShape
 
    'Get the source email
    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    'Save the email as a Word document
    strMailDocument = Environ("Temp") & "\" & objMail.Subject & ".doc"
    objMail.SaveAs strMailDocument, olDoc
 
    'Remove the embedded images from the document
    Set objWordApp = CreateObject("Word.Application")
    Set objMailDocument = objWordApp.Documents.Open(strMailDocument)
    objWordApp.Visible = True
    For Each objInlineShape In objMailDocument.InlineShapes
        objInlineShape.Delete
    Next
 
    'Print out the document
    objMailDocument.PrintOut
 
    objMailDocument.Close
    objWordApp.Quit
    Kill strMailDocument
End Sub

5. Later, close the current “Microsoft Visual Basic for Applications” window.
6. Afterwards, add the new macro to Quick Access Toolbar.
7. Eventually, you can try this macro now.

• To start with, select or open the source email.
• Then, click the macro button in Quick Access Toolbar.
• At once, the email will be printed out without embedded images, which will look like the following screenshot:

Protect Your Outlook Data Effectively

Nowadays, data is always insecure in that there are too many potential risks, like hardware glitches, software faults, virus infection and so on. The same holds true for your Outlook data. Hence, you have to make efforts to safeguard your Outlook data. For instance, you should make regular PST backups. Plus, you need to learn how to use Scanpst to repair Outlook file. Last but not least, preparing a powerful external repair tool is also a matter of necessity, like DataNumen Outlook Repair.

Author Introduction:

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