How to Batch Convert Multiple Notes to Emails in Your Outlook

Sometimes, you may want to batch create separate new emails with the contents of many Outlook notes. In this situation, you can utilize the method introduced in this article.

To create a single email containing the contents of multiple contacts, you can just select the notes and drag and drop them to the “Mail” icon in navigation pane, as shown in the following image. However, if you’d like to convert multiple notes to separate emails, normally, you have to drag the notes one by one. Undoubtedly, it can be pretty troublesome if there are lots of notes. Thus, in this scenario, you had better learn the following way, which is much more convenient.

Convert Multiple Notes into One Email

Batch Convert Multiple Notes to Emails

  1. At the very beginning, start Outlook program.
  2. Then, turn to “Notes” pane and select the notes that you want.
  3. Subsequently, according to “How to Run VBA Code in Your Outlook” to access Outlook VBA editor.
  4. Next, in “Microsoft Visual Basic for Applications”, put the following code into an empty module.
Sub BatchCreateEmailsFromNotes()
    Dim objSelection As Outlook.Selection
    Dim i As Long
    Dim objItem As Object
    Dim objNote As Outlook.NoteItem
    Dim objMail As Outlook.MailItem
 
    'Get selected note items
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
   
    If Not objSelection Is Nothing Then
 
       For i = objSelection.Count To 1 Step -1
           Set objItem = objSelection.Item(i)
 
           If TypeOf objItem Is NoteItem Then
              Set objNote = objItem
 
              'Create the emails
              Set objMail = Outlook.Application.CreateItem(olMailItem)
              With objMail
                   .Subject = "Note: " & Left(objNote.Body, 10)
                   'Attach the note item
                   .Attachments.Add objNote
                   'Copy note to email body
                   .Body = objNote.Body
                   .Display
              End With
           End If
        Next
    End If
End Sub

VBA Code - Batch Convert Multiple Notes to Emails

Note: you can change the email details in the code as per your needs at will.

  1. After that, directly press “F5” key to run this macro.
  2. Immediately, separate emails converted from the notes will be displayed, like the following screenshot.New Emails

Tackle Outlook Troubles Flexibly

As we all know, different problems should be dealt with different measures. For instance, if Outlook frequently restarts on its own, it is very likely that the culprit may be the faulty third party add-ins. Thus, in this case, you ought to restart it in safe mode and then disable the suspicious add-ins. In addition, if you receive the error message mentioning inaccessible PST files, it is possible that your Outlook PST file is corrupted. Under this circumstance, you ought to make use of a potent Outlook fix tool, such as DataNumen Outlook Repair.

Author Introduction:

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

Leave a Reply

Your email address will not be published. Required fields are marked *