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
- First off, launch Outlook application.
- Then, access Outlook VBA editor according to the article – “How to Run VBA Code in Your Outlook”.
- 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”.
- 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
- Later, close the current “Microsoft Visual Basic for Applications” window.
- Afterwards, add the new macro to Quick Access Toolbar.
- 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.
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