How to Quickly Merge Multiple Outlook Notes via VBA

This article will teach you how to merge multiple Outlook notes into a single note in quick time simply via a piece of VBA code.

At times, you may think that there are too many notes in the Notes folder, which looks pretty messy. In this case, perhaps merging the overdue or useless notes into a single note can make your Notes folder in order. However, Outlook has not provided such a direct function. Fortunately, you can use VBA code to realize it. In the followings, we will expose the detailed operations to you.

Quickly Merge Multiple Outlook Notes via VBA

Quickly Merge Multiple Outlook Notes via VBA

  1. To start with, launch your Outlook application.
  2. Then, after entering Outlook main screen, you can switch to “Developer” tab and click on the “Visual Basic” button.
  3. Next, you’ll get access to the Outlook VBA editor, in which you need to insert a new module or open an unused module.
  4. Subsequently, copy and paste the following VBA code into such a module.
Sub MergeMultipleNotes_intoaSingleNote()
    Dim objSelection As Outlook.Selection
    Dim objNote As Outlook.NoteItem
    Dim strNotes As String
    Dim i As Long
    Dim objNewNote As Outlook.NoteItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    i = 0
    For Each objNote In objSelection
        i = i + 1
 
        'Get the notes' details
        strNotes = strNotes & i & ": " & objNote.Subject & vbCrLf & objNote.Body & vbCrLf & "-------------------------------" & vbCrLf
  
        'Delete the source notes
        'If you don't want to delete them, remove the following line
        objNote.Delete
    Next
 
    'Create a new note
    Set objNewNote = Outlook.Application.CreateItem(olNoteItem)
 
    'Input the selected notes' details into this new note
    objNewNote.Body = "Merged Notes" & vbCrLf & "-------------------------------" & vbCrLf & vbCrLf & strNotes
    objNewNote.Display
 
    'Prompt you
    MsgBox i & " Notes Merged!", vbInformation + vbOKOnly, "Merge Notes"
End Sub

VBA Code - Quickly Merge Multiple Outlook Notes

  1. After that, you can exit the “Microsoft Visual Basic for Applications” window.
  2. Later you can head to “File” > “Options” > “Quick Access Toolbar” to add the new macro to the Quick Access Toolbar, like the screenshot below:Add the new macro to the Quick Access Toolbar
  3. Next you ought to insure that macros are permitted in your Outlook. You can go to “Macro settings” in “Trust Center” to check it.Change Macro settings
  4. Ultimately, you could take a shot.
  • First, access the Notes pane.
  • Then select many notes to be merged.
  • Hit the macro in Quick Access Toolbar.Select Notes and Run Macro
  • After macro finishes running, a new note and a message will show up, like the following image.Merged Note
  • Also, all the source notes will be deleted automatically.

Equip Outlook with a Formidable Fix Utility

Though Outlook comes loaded with a myriad of features, it still can get corrupted readily. Even though it comes with a free Outlook inbox repair tool, Scanpst.exe, virtually, it cannot cope with serious issues, such as severely compromised PST file. Therefore, it is highly suggested to keep another more potent repair tool like DataNumen Outlook Repair. It can extract the maximum PST data from seriously damaged file 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 fix sql and outlook repair software products. For more information visit www.datanumen.com

Comments are closed.