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

Outlookのメモの内容を使用して、個別の新しい電子メールを作成したい場合があります。通常、すべてのメモをナビゲーションペインの[メール]アイコンにドラッグできますが、すべてのメモはXNUMXつの電子メールに挿入されます。 Outlookで複数のメモを個別に新しい電子メールに変換するにはどうすればよいですか？

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

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

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

1. [メモ]ペインに移動し、電子メールに変換するメモを選択します。

2。次に、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

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、スクリーンショットを参照してください：

docはメモをメールに変換します1