Wie können mehrere Notizen gleichzeitig in separate E-Mails in Outlook umgewandelt werden?

Manchmal möchten Sie möglicherweise separate „Neue E-Mail“-Nachrichten mit dem Inhalt einzelner Notizen in Outlook erstellen. Normalerweise können Sie alle Notizen auf das Mail-Symbol in der Navigation ziehen – dabei werden jedoch alle Notizen in eine einzige E-Mail eingefügt. Wie können Sie mehrere Notizen stattdessen jeweils einzeln in eine neue E-Mail umwandeln?

Mehrere Notizen gleichzeitig mithilfe von VBA-Code in separate E-Mails konvertieren

---

Mehrere Notizen gleichzeitig mithilfe von VBA-Code in separate E-Mails konvertieren

Um mehrere separate E-Mails basierend auf dem Inhalt der Notizen zu erstellen, wenden Sie bitte den folgenden VBA-Code an:

1.Wechseln Sie in den Notizenbereich und wählen Sie die Notizen aus, die Sie in E-Mails umwandeln möchten.

2. Halten Sie anschließend die ALT + F11-Tasten gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

3. Klicken Sie dann auf Einfügen > Modul, und fügen Sie den folgenden Code in das geöffnete leere Modul ein:

VBA-Code: Mehrere Notizen gleichzeitig in separate E-Mails konvertieren:

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. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Es erscheint eine Meldungsbox mit der Frage, ob Sie die Notizen in E-Mails konvertieren möchten. Klicken Sie dazu auf OK – siehe Screenshot:

5. Anschließend wurden alle ausgewählten Notizen wie im folgenden Screenshot gezeigt in E-Mails konvertiert: