How to Only Print Bulleted or Numbered Lists in Your Outlook Email

Sometimes, you may simply want to print bulleted or numbered lists in an email instead of the entire email. Hence, in this article, we’ll exhibit you a rapid way to get it.

No matter when editing a document or composing an email, to highlight the vital points, we usually make use of bullet or numbering. Therefore, when you want to print the important contents in an email, most of time, it means printing the bulleted or numbered lists. In the standard manner, you have to manually extract such lists and then print them. However, it appears to be a bit tedious. So, in the followings, we will introduce a much more awesome method to you.

Only Print Bulleted or Numbered Lists in Email

  1. At first, access VBA editor in Outlook through “Alt + F11”.
  2. Then, in the new window, enable “MS Word Object Library” according to the previous post – “How to Add an Object Library Reference in VBA“.
  3. Next, copy and paste the following VBA code into a blank module.
Sub PrintBulletedNumberedLists()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objWordApp As Word.Application
    Dim objTempDocument As Word.Document
    Dim objParagraph As Word.Paragraph
    Dim objRange As Word.Range
 
    'Get the email
    Select Case TypeName(Application.ActiveWindow)
           Case "Inspector"
                Set objMail = ActiveInspector.CurrentItem
           Case "Explorer"
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    Set objMailDocument = objMail.GetInspector.WordEditor
 
    'Create a temp Word document
    Set objWordApp = CreateObject("Word.Application")
    Set objTempDocument = objWordApp.Documents.Add
    objWordApp.Visible = True
    objTempDocument.Activate
 
    'Copy the lines with bullet/numbering to the temp document
    For Each objParagraph In objMailDocument.Paragraphs
        If objParagraph.Style Like "List*" Then
           Set objRange = objTempDocument.Paragraphs.Last.Range
           objRange = objParagraph.Range.FormattedText
        End If
    Next
 
    'Print the temp document
    objTempDocument.PrintOut
    objTempDocument.Close False
    objWordApp.Quit
End Sub

VBA Code - Only Print Bulleted or Numbered Lists in Email

  1. After that, add the current macro to Quick Access Toolbar by referring to the optional step in “How to Run VBA Code in Your Outlook” article.
  2. Eventually, follow the steps below to have a try.
  • In the first place, select or open an email.
  • Then, click the macro button in Quick Access Toolbar.Run Macro through Quick Access Toolbar
  • Immediately, Outlook will extract the lines with bullet/numbering to a temporary Word document and print out the document.Printed Bulleted or Numbered Lists

Tackle Occasional Outlook Troubles

Have you ever received error messages in your Outlook? A majority of users have experienced such cases. For instance, Outlook hangs, or freezes or crashes all of a sudden. Usually, if you come across such events frequently, it indicates that your Outlook file is in danger. At this point, you have to make an updated backup for your Outlook data files. Moreover, if affordable, you’d better prepare a robust PST fix tool, such as 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 corrupted mdf and outlook repair software products. For more information visit www.datanumen.com

Comments are closed.