Hoe converteer ik meerdere notities naar afzonderlijke e-mails tegelijk in Outlook?

Soms wilt u misschien aparte nieuwe e-mails maken met de inhoud van de notities in Outlook. Normaal gesproken kunt u alle notities naar het e-mailpictogram in het navigatievenster slepen, maar alle notities worden in één enkele e-mail ingevoegd. Hoe kunt u in Outlook meerdere notities afzonderlijk naar nieuwe e-mails converteren?

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

Converteer meerdere notities naar afzonderlijke e-mails tegelijk 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 vervolgens de notities die u naar e-mails wilt converteren.

2. Houd vervolgens de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. En klik dan Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module:

VBA-code: converteer meerdere notities naar afzonderlijke e-mails tegelijk:

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 vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een berichtvenster om u eraan te herinneren of u notities naar e-mails wilt converteren, klik dan OK, zie screenshot:

doc notities converteren naar e-mails 1