How to convert multiple notes to separate emails at once in Outlook?
Sometimes, you may want to create separate new emails with the contents of the notes in Outlook. Normally, you can drag all the notes into the Mail icon in navigation pane, but all the notes will be inserted into one single email. How could you convert multiple notes to new emails separately in Outlook?
Convert multiple notes to separate emails at once with VBA code
Convert multiple notes to separate emails at once with VBA code
To create multiple separate emails based on the notesโ contents, please apply the following VBA code:
1. Go to the Notes pane, and then select the notes that you want to convert to emails.
2. Then, hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.
3. And then, click Insert > Module, copy and paste below code into the opened blank module:
VBA code: Convert multiple notes to separate emails at once:
Sub BatchCreateEmailsFromNotes()
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xItem As Object
Dim xNote As Outlook.NoteItem
Dim xMail As Outlook.MailItem
Dim xYesNo As Integer
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
If xSelection Is Nothing Or xSelection.Count = 0 Then Exit Sub
xYesNo = MsgBox("Are you sure to convert the selected notes to emails?", vbOKCancel + vbQuestion, "Kutools for Outlook")
If xYesNo = VbMsgBoxResult.vbCancel Then
Exit Sub
End If
For Each xItem In xSelection
If xItem.Class = olNote Then
Set xNote = xItem
Set xMail = Outlook.Application.CreateItem(OlMailItem)
With xMail
.Subject = "Note: " & Mid(xNote.Body, 1, 10)
.Body = xNote.Body
.Attachments.Add xNote
.Display
End With
End If
Next
End Sub
4. Then press F5 key to run this code, and a message box pops out to remind you if you want to convert notes to emails, please click OK, see screenshot:
5. And then, all the selected notes have been converted to emails as following screenshot shown:
Best Office Productivity Tools
Breaking News: Kutools for Outlook Launches Free Version!
Experience the all-new Kutools for Outlook FREE version with 70+ incredible features, yours to use FOREVER! Click to download now!
๐ค Kutools AI : Instant pro emails with AI magic--one-click to genius replies, perfect tone, multilingual mastery. Transform emailing effortlessly! ...
๐ง Email Automation: Auto Reply (Available for POP and IMAP) / Schedule Send Emails / Auto CC/BCC by Rules When Sending Email / Auto Forward (Advanced Rules) / Auto Add Greeting / Automatically Split Multi-Recipient Emails into Individual Messages ...
๐จ Email Management: Recall Emails / Block Scam Emails by Subjects and Others / Delete Duplicate Emails / Advanced Search / Consolidate Folders ...
๐ Attachments Pro: Batch Save / Batch Detach / Batch Compress / Auto Save / Auto Detach / Auto Compress ...
๐ Interface Magic: ๐More Pretty and Cool Emojis / Remind you when important emails come / Minimize Outlook Instead of Closing ...
๐ One-click Wonders: Reply All with Incoming Attachments / Anti-Phishing Emails / ๐Show Sender's Time Zone ...
๐ฉ๐ผโ๐คโ๐ฉ๐ป Contacts & Calendar: Batch Add Contacts From Selected Emails / Split a Contact Group to Individual Groups / Remove Birthday Reminders ...
Instantly unlock Kutools for Outlook with a single clickโpermanently free. Don't wait, download now and boost your efficiency!
![kutools for outlook features1](http://cdn.extendoffice.com/images/stories/kto-ad-sun/kto19.0-kutools-100.png)
![kutools for outlook features2](http://cdn.extendoffice.com/images/stories/kto-ad-sun/kto19.0-plus-100.png)