Wie konvertiere ich mehrere Notizen gleichzeitig in separate E-Mails in Outlook?

Manchmal möchten Sie möglicherweise separate neue E-Mails mit dem Inhalt der Notizen in Outlook erstellen. Normalerweise können Sie alle Notizen in das Mail-Symbol im Navigationsbereich ziehen, aber alle Notizen werden in eine einzelne E-Mail eingefügt. Wie können Sie mehrere Notizen in Outlook separat in neue E-Mails konvertieren?

Konvertieren Sie mehrere Notizen gleichzeitig in separate E-Mails mit VBA-Code

Konvertieren Sie mehrere Notizen gleichzeitig in separate E-Mails mit VBA-Code

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

1. Gehen Sie zum Bereich Notizen und wählen Sie die Notizen aus, die Sie in E-Mails konvertieren möchten.

2. Halten Sie dann die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

3. Und dann klicken Insert > ModulKopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein:

VBA-Code: Konvertieren Sie mehrere Notizen gleichzeitig in separate E-Mails:

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. Dann drücken F5 Klicken Sie auf, um diesen Code auszuführen, und ein Meldungsfeld wird angezeigt, um Sie daran zu erinnern, ob Sie Notizen in E-Mails konvertieren möchten. Klicken Sie auf OK, siehe Screenshot:

doc Notizen in E-Mails konvertieren 1