Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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

5. En vervolgens zijn alle geselecteerde notities geconverteerd naar e-mails zoals in de volgende schermafbeelding:

doc notities converteren naar e-mails 2


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.