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
- At first, access VBA editor in Outlook through “Alt + F11”.
- Then, in the new window, enable “MS Word Object Library” according to the previous post – “How to Add an Object Library Reference in VBA“.
- 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
- 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.
- 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.
- Immediately, Outlook will extract the lines with bullet/numbering to a temporary Word document and print out the document.
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.
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