Hoe converteert u meerdere notities tegelijk naar afzonderlijke e-mails in Outlook?

Soms wilt u afzonderlijke nieuwe e-mails maken op basis van de inhoud van uw notities in Outlook. Normaal gesproken kunt u alle notities naar het e-mailpictogram in de navigatie slepen, maar dan worden ze allemaal samengevoegd in één enkele e-mail. Hoe converteert u meerdere notities naar afzonderlijke nieuwe e-mails in Outlook?

Converteer meerdere notities tegelijk naar afzonderlijke e-mails met VBA-code

---

Converteer meerdere notities tegelijk naar afzonderlijke e-mails met VBA-code

Om meerdere afzonderlijke e-mails te maken op basis van de inhoud van de notities, past u de volgende VBA-code toe:

1. Ga naar het notitievenster en selecteer de notities die u naar e-mails wilt omzetten.

2. Houd daarna de ALT + F11-toetsen ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

3. Klik vervolgens op Invoegen > Module en kopieer en plak de onderstaande code in de geopende lege module:

VBA-code: Converteer meerdere notities tegelijk naar afzonderlijke 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. Druk daarna op de F5-toets om deze code uit te voeren. Er verschijnt een berichtvenster waarin u wordt gevraagd of u de notities naar e-mails wilt converteren; klik hiervoor op OK, zie de schermafbeelding:

5. Vervolgens zijn alle geselecteerde notities geconverteerd naar e-mails, zoals te zien is in de volgende schermafbeelding: