VBAとユーザーフォームを介してOutlookの電子メールに効果的にメモを追加する方法

Outlookソリューション 2025 年 9 月 29 日

場合によっては、Outlookでメールを編集したりメモを追加したりすることができます。この記事では、この機能を実現するための効果的な方法を紹介します。

からOutlookメッセージにメモを挿入する4つの簡単な方法「、カスタムフラグの使用、件名または本文へのメモの入力、このメールへの既存のメモアイテムの添付など、Outlookのネイティブ機能を使用してメールにメモを挿入する方法を学ぶことができます。それでも、それらはすべて単なる回避策です。ここでは、はるかに効果的な方法をお教えします。これにより、メールにメモを追加したり、既存のメモを自由に編集または削除したりできます。

Outlookの電子メールにメモを追加する

まず、Outlookで「Alt + F11」を押してVBAエディターにアクセスします。
次に、「挿入」>「ユーザーフォーム」をクリックします。
次に、新しいユーザーフォームで、次の画像のようなテキストボックスを作成します。
次に、スクリーンショットのように、テキストボックスの「名前」を「txtNotes」に変更します。
その後、フォームにXNUMXつのコマンドボタンを作成します。
次に、「CommandButton1」を選択します。「名前」を「btnOK」に変更し、「キャプション」を「OK」に変更します。
その後、「CommandVutton2」の「Name」を「btnCancel」に、「Caption」を「Cancel」に変更します。
次に、ユーザーフォーム全体を選択し、その「名前」を「frmAddNote」に、「キャプション」を「メモを入力」に変更します。
続いて、「fromAddNote」を右クリックし、「コードの表示」を選択します。
新しい画面で、次のコードをコピーします。

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

後で、以下のVBAコードを未使用のモジュールに配置します。

Sub AddNote()
    frmAddNote.Show
End Sub

最後に、「ファイル」>「オプション」>「リボンのカスタマイズ」に移動して、このマクロをリボンに追加します。
今、あなたは試してみることができます。メールを選択し、リボンの新しい[メモを追加]ボタンをクリックします。
ポップアップダイアログボックスで、メモを入力して「OK」をクリックできます。
すぐに、選択したメールに新しいメモが追加されます。

Outlook電子メールの既存のメモを編集または削除する

電子メール内の既存のメモを編集または削除したい場合があります。以下の手順に従ってください。

まず、別のユーザーフォームを作成して「frmEditNote」という名前を付け、キャプションを「Edityournote」に変更します。
次に、フォームに新しいテキストボックスを挿入し、その「名前」を「txtNotes」に変更します。
次に、「OK」と「キャンセル」のXNUMXつのコマンドボタンを追加します。
その後、「frmEditNote」を右クリックして「コードの表示」を選択します。
「frmEditNote」の新しいコードページに、次のコードを入力します。

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

その後、モジュールを開き、VBAコードをそのモジュールにコピーします。

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

最後に、「EditNote」および「DeleteNotes」マクロをリボンに追加できます。
最後に、「OK」をクリックしてメインウィンドウに戻ったら、メモの編集を試みることができます。

ノートを選択し、「ノートの編集」ボタンをクリックします。
次に、新しいダイアログボックスが表示され、選択したメモを編集できます。
編集後、「OK」をクリックしてください。メモが更新されます。

また、メモを削除してみることもできます。

削除するメモを選択します。
リボンの[メモを削除]ボタンをクリックします。
このメモはすぐに削除されます。

Outlookのデータ損失を防ぐ

Outlookのデータ損失をブロックするための強力なソリューションを探していますか？正直なところ、定期的なOutlookデータのバックアップを作成する限り、PSTデータの損失を簡単に回避できます。たとえば、PSTが破損した場合でも、簡単に PSTを回復するそよ風のようにバックアップされたPSTファイルからのデータ。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQLを回復すると見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com