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
- To start with, launch your Outlook application.
- Then, after entering Outlook main screen, you can switch to “Developer” tab and click on the “Visual Basic” button.
- Next, you’ll get access to the Outlook VBA editor, in which you need to insert a new module or open an unused module.
- 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
- After that, you can exit the “Microsoft Visual Basic for Applications” window.
- Later you can head to “File” > “Options” > “Quick Access Toolbar” to add the new macro to the Quick Access Toolbar, like the screenshot below:
- Next you ought to insure that macros are permitted in your Outlook. You can go to “Macro settings” in “Trust Center” to check it.
- 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.
- After macro finishes running, a new note and a message will show up, like the following image.
- 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.
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