---
description: At times, you may hope to edit or add notes to you emails in Outlook. This article will introduce you an effective way to achieve this function.
title: How to Effectively Add Notes to Outlook Emails via VBA & UserForm
image: https://www.datanumen.com/blogs/wp-content/uploads/2017/12/effectively-add-notes-to-outlook-emails.jpg
---

-
-
-

[Home](https://www.datanumen.com/blogs/) > [Solutions](https://www.datanumen.com/blogs/category/solutions/) > [Office Solutions](https://www.datanumen.com/blogs/category/solutions/office-solutions/) > [Outlook Solutions](https://www.datanumen.com/blogs/category/solutions/office-solutions/outlook-solutions/) > How to Effectively Add Notes to Outlook Emails via VBA & UserForm

# How to Effectively Add Notes to Outlook Emails via VBA & UserForm

[Outlook Solutions](https://www.datanumen.com/blogs/category/solutions/office-solutions/outlook-solutions/) September 29, 2025

Share Now:

-
-
-
-
-
-
-
-

*At times, you may hope to edit or add notes to you emails in Outlook. This article will introduce you an effective way to achieve this function.*

From “ [4 Easy Methods to Insert a Note into Your Outlook Messages](https://www.datanumen.com/blogs/4-easy-methods-insert-note-outlook-messages/)“, you can learn to insert notes into mails via Outlook native functions, such as using custom flags, typing note in subject or body, or attaching existing note items to this email. Yet, all of them are just workarounds. Here, we’ll teach you a much more effective method. Via it, you will be able to add notes to emails and edit or delete existing notes at will.

![Effectively Add Notes to Outlook Emails via VBA \& UserForm](https://www.datanumen.com/blogs/wp-content/uploads/2017/12/effectively-add-notes-to-outlook-emails.jpg "Effectively Add Notes to Outlook Emails via VBA & UserForm")

## Add Notes to Outlook Emails

1. To begin with, access VBA editor by pressing “Alt + F11” in Outlook.
2. Then, click “Insert” > “UserForm”.![Insert UserForm]( "Insert UserForm")
3. Next, in the new UserForm, create a textbox like the image below.![Insert TextBox in UserForm]( "Insert TextBox in UserForm")
4. Then, change the “Name” of the textbox to “txtNotes”, like the screenshot.![Change TextBox Name]( "Change TextBox Name")
5. After that, create two commandbuttons in the form.![Create CommandButton]( "Create CommandButton")
6. Then, select “CommandButton 1”. Change its “Name” to “btnOK” and alter its “Caption” to “OK”.![Change Button Name \& Caption]( "Change Button Name & Caption")
7. Afterwards, alter the “Name” of “CommandVutton 2” to “btnCancel” and the “Caption” to “Cancel”.
8. Next, select the entire UserForm and modify its “Name” to “frmAddNote” and “Caption” to “Enter your note”.![Change UserForm Name \& Caption]( "Change UserForm Name & Caption")
9. Subsequently, right click the “fromAddNote” and choose “View Code”.![View Code of "frmAddNote"]( "View Code of \"frmAddNote\"")
10. In the new screen, copy the following code into it.

```
Private Sub btnOK_Click()
    Dim strNote As String
    Dim objMail As Outlook.MailItem
    Dim objNote As Outlook.NoteItem
 
    strNote = txtNotes.Text
 
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    Set objNote = Application.CreateItem(olNoteItem)
 
    objNote.Body = strNote
    objNote.Save
    objMail.Attachments.Add objNote
    objMail.Save
    objNote.Delete
    Unload Me
End Sub

Private Sub btnCancel_Click()
    Unload Me
End Sub
```

!["frmAddNote" Code]( "\"frmAddNote\" Code")

11. Later, put the VBA code below into an unused module.

```
Sub AddNote()
    frmAddNote.Show
End Sub
```

![Show "frmAddNote"]( "Show \"frmAddNote\"")

12. Finally, head to “File” > “Options” > “Customize Ribbon” to add this macro to ribbon.![Add "AddNote" Macro to Ribbon]( "Add \"AddNote\" Macro to Ribbon")
13. Now, you can have a try. Select an email and click the new “Add Note” button in ribbon.![Add Note to Selected Email]( "Add Note to Selected Email")
14. In the popup dialog box, you can enter you note and click “OK”.![Enter your note in box]( "Enter your note in box")
15. Immediately, a new note will be added to the selected email.![Added Note]( "Added Note")

## Edit or Delete Existing Notes for Outlook Emails

At times, you may want to edit or delete any existing notes in an email. You can follow the steps below.

1. First off, create another userform and name it as “frmEditNote” and modify its caption to “Edit your note”.![Create a UseForm Called "frmEditNote"]( "Create a UseForm Called \"frmEditNote\"")
2. Then, insert a new textbox in the form and change its “Name” to “txtNotes”.
3. Next, add two commandbuttons – “OK” and “Cancel”.
4. After that, right click “frmEditNote” and select “View Code”.
5. In the new code page of “frmEditNote”, put the following code.

```
Private Sub UserForm_Initialize()
    Dim objAttachNote As Outlook.Attachment
    Dim objTempNote As Outlook.NoteItem

    Set objAttachNote = ActiveExplorer.AttachmentSelection.Item(1)
    Set objMail = objAttachNote.Parent
 
    If Right(objAttachNote.FileName, 3) = "msg" Then
       strTempFolder = Environ("Temp")
       strFilePath = strTempFolder & "\" & objAttachNote.FileName
       objAttachNote.SaveAsFile strFilePath
    End If
 
    Set objTempNote = Session.OpenSharedItem(strFilePath)
    txtNotes.Text = objTempNote.Body

    objTempNote.Close olDiscard
End Sub

Private Sub btnOK_Click()
    Dim strNote As String
    Dim objMail As Outlook.MailItem
    Dim objAttachNote As Outlook.Attachment
    Dim objNewNote As Outlook.NoteItem
 
    strNote = txtNotes.Text
 
    Set objNewNote = Application.CreateItem(olNoteItem)
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    Set objAttachNote = ActiveExplorer.AttachmentSelection.Item(1)
    objAttachNote.Delete

    objNewNote.Body = strNote
    objNewNote.Save
    objMail.Attachments.Add objNewNote
    objMail.Save
    objNewNote.Delete
    Unload Me
End Sub

Private Sub btnCancel_Click()
    Unload Me
End Sub
```

!["frmEditNote" Code]( "\"frmEditNote\" Code")

6. After that, open a module and copy the VBA code into it.

```
Sub EditNote()
    frmEditNote.Show
End Sub

Sub DeleteNotes()
    Dim objSelectedAttachments As Outlook.AttachmentSelection
    Dim objAttachment As Outlook.Attachment
    Dim objMail As Outlook.MailItem
 
    Set objSelectedAttachments = Application.ActiveExplorer.AttachmentSelection
 
    For Each objAttachment In objSelectedAttachments
        If Right(objAttachment.FileName, 3) = "msg" Then
           objAttachment.Delete
        End If
    Next
 
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    objMail.Save
End Sub
```

![Add "Edit Note" Code \& "Delete Notes" Code]( "Add \"Edit Note\" Code & \"Delete Notes\" Code")

7. Finally, you can add the “EditNote” and “DeleteNotes” macros to ribbon.![Add "EditNote" \& "DeleteNotes" Macro to Ribbon]( "Add \"EditNote\" & \"DeleteNotes\" Macro to Ribbon")
8. Lastly, after click “OK” and return to the main window, you can try to edit a note.

- Select a note and click the “Edit Note” button.![Edit Note]( "Edit Note")
- Then, a new dialog box will show up, in which you can edit the selected note.![Change Note in Dialog Box]( "Change Note in Dialog Box")
- After editing, click “OK”. The note will be updated.![Updated Note]( "Updated Note")

9. Also, you can try to delete any notes.

- Select the note you want to delete.
- Click the “Delete Notes” button in ribbon.![Delete Note]( "Delete Note")
- This note will be deleted at once.![Note Disappear]( "Note Disappear")

## Prevent Outlook from Data Loss

Are you searching a mighty solution to block Outlook data loss? In honesty, as long as you make regular Outlook data backups, you can avoid PST data loss with ease. For instance, even if PST gets damaged, you still can easily [recover PST](https://www.datanumen.com/outlook-repair/) data from the backed up PST file like a breeze.

## Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including [recover sql](https://www.datanumen.com/sql-recovery/) and outlook repair software products. For more information visit [www.datanumen.com](https://www.datanumen.com/)

Share Now:

-
-
-
-
-
-
-
-

[← Previous post](https://www.datanumen.com/blogs/ok-back-multiple-computers-single-external-hard-drive/)

[Next post →](https://www.datanumen.com/blogs/quickly-export-color-category-lists-outlook-mailboxes-excel/)

Comments are closed.

![Data Recovery Blog]()

Follow or like us on Facebook, LinkedIn and Twitter to get all promotions, latest news and updates on our products and company.

-
-
-

### Featured Products

- [DataNumen Outlook Repair](https://www.datanumen.com/outlook-repair/)
- [DataNumen SQL Recovery](https://www.datanumen.com/sql-recovery/)
- [DataNumen Exchange Recovery](https://www.datanumen.com/exchange-recovery/)
- [DataNumen Access Repair](https://www.datanumen.com/access-repair/)
- [DataNumen Excel Repair](https://www.datanumen.com/excel-repair/)
- [DataNumen PDF Repair](https://www.datanumen.com/pdf-repair/)
- [DataNumen Word Repair](https://www.datanumen.com/word-repair/)
- [DataNumen Zip Repair](https://www.datanumen.com/zip-repair/)

### Popular posts

```json
{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/www.datanumen.com\/blogs\/effectively-add-notes-outlook-emails-via-vba-userform\/#article","isPartOf":{"@id":"https:\/\/www.datanumen.com\/blogs\/effectively-add-notes-outlook-emails-via-vba-userform\/"},"author":{"name":"AuthorCCW","@id":"https:\/\/www.datanumen.com\/blogs\/#\/schema\/person\/33ded6c47c77587f9158d99f05e23957"},"headline":"How to Effectively Add Notes to Outlook Emails via VBA & UserForm","datePublished":"2017-12-01T02:59:13+00:00","dateModified":"2025-09-29T09:11:24+00:00","mainEntityOfPage":{"@id":"https:\/\/www.datanumen.com\/blogs\/effectively-add-notes-outlook-emails-via-vba-userform\/"},"wordCount":587,"commentCount":0,"publisher":{"@id":"https:\/\/www.datanumen.com\/blogs\/#organization"},"image":{"@id":"https:\/\/www.datanumen.com\/blogs\/effectively-add-notes-outlook-emails-via-vba-userform\/#primaryimage"},"thumbnailUrl":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2017\/12\/effectively-add-notes-to-outlook-emails.jpg","articleSection":["Outlook Solutions"],"inLanguage":"en-US","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/www.datanumen.com\/blogs\/effectively-add-notes-outlook-emails-via-vba-userform\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/www.datanumen.com\/blogs\/effectively-add-notes-outlook-emails-via-vba-userform\/","url":"https:\/\/www.datanumen.com\/blogs\/effectively-add-notes-outlook-emails-via-vba-userform\/","name":"How to Effectively Add Notes to Outlook Emails via VBA & UserForm","isPartOf":{"@id":"https:\/\/www.datanumen.com\/blogs\/#website"},"primaryImageOfPage":{"@id":"https:\/\/www.datanumen.com\/blogs\/effectively-add-notes-outlook-emails-via-vba-userform\/#primaryimage"},"image":{"@id":"https:\/\/www.datanumen.com\/blogs\/effectively-add-notes-outlook-emails-via-vba-userform\/#primaryimage"},"thumbnailUrl":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2017\/12\/effectively-add-notes-to-outlook-emails.jpg","datePublished":"2017-12-01T02:59:13+00:00","dateModified":"2025-09-29T09:11:24+00:00","description":"At times, you may hope to edit or add notes to you emails in Outlook. This article will introduce you an effective way to achieve this function.","inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/www.datanumen.com\/blogs\/effectively-add-notes-outlook-emails-via-vba-userform\/"]}]},{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/www.datanumen.com\/blogs\/effectively-add-notes-outlook-emails-via-vba-userform\/#primaryimage","url":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2017\/12\/effectively-add-notes-to-outlook-emails.jpg","contentUrl":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2017\/12\/effectively-add-notes-to-outlook-emails.jpg","width":1760,"height":817,"caption":"Effectively Add Notes to Outlook Emails via VBA & UserForm"},{"@type":"WebSite","@id":"https:\/\/www.datanumen.com\/blogs\/#website","url":"https:\/\/www.datanumen.com\/blogs\/","name":"Data Recovery Blog","description":"Discuss every aspect of data recovery","publisher":{"@id":"https:\/\/www.datanumen.com\/blogs\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/www.datanumen.com\/blogs\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Organization","@id":"https:\/\/www.datanumen.com\/blogs\/#organization","name":"Data Recovery Blog","url":"https:\/\/www.datanumen.com\/blogs\/","logo":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/www.datanumen.com\/blogs\/#\/schema\/logo\/image\/","url":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2019\/02\/logowithouttext.jpg","contentUrl":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2019\/02\/logowithouttext.jpg","width":296,"height":397,"caption":"Data Recovery Blog"},"image":{"@id":"https:\/\/www.datanumen.com\/blogs\/#\/schema\/logo\/image\/"},"sameAs":["https:\/\/www.facebook.com\/DataNumen","https:\/\/x.com\/DataNumen","http:\/\/www.linkedin.com\/company\/datanumen","https:\/\/myspace.com\/datanumen\/","http:\/\/www.pinterest.com\/datanumen\/","https:\/\/www.youtube.com\/channel\/UCVIIuuKfUBHSJauUaVP13tw"]},{"@type":"Person","@id":"https:\/\/www.datanumen.com\/blogs\/#\/schema\/person\/33ded6c47c77587f9158d99f05e23957","name":"AuthorCCW","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/secure.gravatar.com\/avatar\/3516ed90fc242780d3947a989f895bc46e70c3e83485d30f2b457a007906aa58?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/3516ed90fc242780d3947a989f895bc46e70c3e83485d30f2b457a007906aa58?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/3516ed90fc242780d3947a989f895bc46e70c3e83485d30f2b457a007906aa58?s=96&d=mm&r=g","caption":"AuthorCCW"},"sameAs":["https:\/\/www.datanumen.com\/"]}]}
```