How to Batch Print the Notes of Multiple Outlook Contacts

Outlook doesn’t allow you to print a contact’s notes only, not to mention batch printing the notes of multiple contacts. Therefore, in this article, we will guide to realize this function with VBA code.

By default, when you print an Outlook contact in “Memo Style”, all the general information of this contact will be printed out, including the name, company, job title, email address, various phone numbers and notes, etc. Yet, at times, you may only want to print the “Notes” of the contact. In this case, you have to seek other means. Thereinafter, we will teach you to print out the notes of multiple contacts in a jiffy.

Batch Print the Notes of Multiple Outlook Contacts

Print the Notes of Multiple Outlook Contacts

  1. To begin with, launch Outlook program.
  2. Then, in main window, get into Outlook VBA editor by “Alt + F11” keys.
  3. Next, in the new window, you ought to first enable “MS Word Object Library”, which you can refer to the previous article – “How to Add an Object Library Reference in VBA“.
  4. After that, copy and paste the following VBA code into an unused module.
Sub PrintMultipleContactNotesOnly()
    Dim objSelection As Outlook.Selection
    Dim i As Long
    Dim objContact As Outlook.ContactItem
    Dim objWordApp As Word.Application
    Dim objTempDocument As Word.Document
    Dim strDocumentData As String
 
    'Get selected contacts
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    Set objWordApp = CreateObject("Word.Application")
    objWordApp.Visible = True
 
    For i = objSelection.Count To 1 Step -1
        If objSelection(i).Class = olContact Then
           'Input the contact Notes into a document
           Set objContact = objSelection(i)
           Set objTempDocument = objWordApp.Documents.Add
           strDocumentData = objContact.FullName & vbCr & vbCr & objContact.Body
           objTempDocument.Range(0, 0).InsertAfter strDocumentData
 
           'Print the document
           objTempDocument.PrintOut
 
           objTempDocument.Close False
        End If
    Next
 
    objWordApp.Quit
End Sub

VBA Code - Print the Notes of Multiple Outlook Contacts

  1. Later, exit the VBA editor and add this macro to Quick Access Toolbar, which has been taught in the post – “How to Run VBA Code in Your Outlook“.
  2. Afterwards, you can go to the Contacts folder.
  3. Eventually, select all the original contacts whose notes you want to print and run macro by the new button in Quick Access Toolbar.Run Macro on Selected Contacts
  4. When macro completes, the notes of the selected contacts will be printed out.Printed Contact Notes

What to Do in the Event of Outlook Crash

Have you ever encountered Outlook crash? Generally, at best, everything may still be fine. Nevertheless, at worst, crash can straightly result in catastrophic Outlook data damage. At that point, you’ll be required to attempt PST data recovery. Now, if you’ve kept an updated Outlook data backup, you can just revert to the backup. But, if there is not an effective backup, you have to take recourse to a robust and trustworthy external fix tool, such as DataNumen Outlook Repair. It can help you get back maximum data from damaged Outlook file.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including corrupt mdf and outlook repair software products. For more information visit www.datanumen.com

Comments are closed.