If the highlighted texts in an email are vitally important information, you may wish to print them out. This article will teach you 2 ways to quickly extract and print the highlighted texts in an email.
Generally, we will highlight the extremely significant texts in an Outlook email. At times, you may desire to print out all the highlighted texts in an email. But there is not such a native feature in Outlook. You have to seek other means, such as the following one.
Method 1: Print All Highlighted Texts Manually
- At the very beginning, double click on an email to open it in its own window.
- Then, in the Message window, click the “Find” button in the “Editing” group.
- Next, a new dialog box called as “Find and Replace” will display, in which you need to take the following steps to locate and select all the highlighted texts.
- First off, click into “Find word” field.
- Then hit the “More >>” button.
- Next, click the “Format” button at the bottom.
- From its drop down list, choose “Highlight”.
- After that, you can click the “Find In” button and choose “Main Document” option.
- Later, click “Close” button.
- After getting back to the email window, you will find that all the highlighted texts have been selected. Now you can press “Ctrl + C” to copy them.
- Subsequently, you could create a new email and press “Ctrl + V” to paste the highlighted texts into the message body.
- Ultimately, go to “File” menu, then shift to “Print” tab and hit “Print” button to print this email.
Method 2: Print All Highlighted Texts via VBA
- In the main Outlook window, press “Alt + F11” key buttons.
- Next, you will get access to VBA editor window, in which you need to open an unused module.
- Then, copy the following VBA code into this module.
Sub PrintAllHighlightedTextsFromEmail() Dim objMail As Outlook.MailItem Dim objMailDocument As Word.Document Dim objWordApp As Word.Application Dim objWordSelection As Word.Selection Dim i As Integer Dim a() As Variant Dim strFoundText As String Dim objTempMail As Outlook.MailItem Select Case TypeName(Application.ActiveWindow) Case "Explorer" Set objMail = ActiveExplorer.Selection.Item(1) objMail.Display Case "Inspector" Set objMail = ActiveInspector.CurrentItem End Select Set objMailDocument = objMail.GetInspector.WordEditor Set objWordApp = objMailDocument.Application Set objWordSelection = objWordApp.Selection With objWordSelection.Find .ClearFormatting .Highlight = True .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False End With objWordSelection.Find.Execute While objWordSelection.Find.Found ReDim Preserve a(i) strFoundText = objWordSelection If Asc(Right(strFoundText, 1)) <> 13 Then strFoundText = strFoundText & vbCrLf End If a(i) = strFoundText i = i + 1 objWordSelection.Find.Execute Wend Set objTempMail = Application.CreateItem(olMailItem) objTempMail.Display For i = LBound(a) To UBound(a) objTempMail.Body = objTempMail.Body & vbCr & a(i) Next objTempMail.PrintOut objTempMail.Close olDiscard End Sub
- After that, exit the VBA editor.
- Then, add this macro to Quick Access Toolbar in “Outlook Options”.
- Finally, you can try it.
- Firstly, select or open an email.
- Then, click the macro button in Quick Access Toolbar.
- At once, the highlighted texts in this email will be printed out.
Guard Outlook Data against Corruption
Despite with numerous functions, Outlook cannot escape from errors, crash and corruption, etc. Thus in order to reduce the likelihood of the terrible occurrence, you ought to make some efforts, such as keeping an eye out for hidden viruses or malware, keeping exiting Outlook properly and so on. Moreover, you had better get hold of an experienced Outlook fix tool, such as DataNumen Outlook Repair. It is able to extract maximum data in quick time.
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