2 Methods to Quickly Print All Highlighted Texts in Your Outlook Email

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.

Quickly Print All Highlighted Texts in Your Outlook Email

Method 1: Print All Highlighted Texts Manually

  1. At the very beginning, double click on an email to open it in its own window.
  2. Then, in the Message window, click the “Find” button in the “Editing” group.
  3. 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”.Find Highlighted Texts
  • After that, you can click the “Find In” button and choose “Main Document” option.
  • Later, click “Close” button.
  1. 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.
  2. Subsequently, you could create a new email and press “Ctrl + V” to paste the highlighted texts into the message body.
  3. 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

  1. In the main Outlook window, press “Alt + F11” key buttons.
  2. Next, you will get access to VBA editor window, in which you need to open an unused module.
  3. 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

VBA Code - Print All Highlighted Texts in Your Outlook Email

  1. After that, exit the VBA editor.
  2. Then, add this macro to Quick Access Toolbar in “Outlook Options”.
  3. 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.

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.