Outlook で複数のメモを一度に個別のメールに変換するには、どうすればよいですか？

場合によっては、Outlook のメモの内容をもとに、それぞれ別々の新規メールを作成したいことがあります。通常、すべてのメモをナビゲーションウィンドウ内のメールアイコンにドラッグすれば一括でメール化できますが、その方法ではすべてのメモが1 通のメールにまとめられてしまいます。Outlook で複数のメモを個別に新規メールに変換するには、どうすればよいでしょうか？

VBA コードを使用して複数のメモを一度に個別のメールに変換する

---

VBA コードを使用して複数のメモを一度に個別のメールに変換する

メモの内容に基づいて複数の個別のメールを作成するには、以下の VBA コードを適用してください：

1。メモペインに移動して、メールに変換したいメモを選択します。

2。次に、ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

3。次に、挿入>モジュールをクリックし、開いた空のモジュールに以下のコードをコピー＆ペーストしてください：

VBA コード：複数のメモを一度に個別のメールに変換する：

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。次に、F5キーを押してこのコードを実行すると、「メモをメールに変換しますか？」という確認メッセージボックスが表示されますので、OKをクリックしてください（下記スクリーンショット参照）：

5。これにより、選択したすべてのメモが以下のスクリーンショットのようにメールに変換されます：