Hoe stelt u Outlook in om automatisch een taak aan te maken wanneer u een e-mail verzendt?

Soms wilt u automatisch een taak aanmaken op basis van een e-mail op het moment dat u deze verzendt in Outlook. Hier presenteren we een snelle methode om dat voor elkaar te krijgen.

Automatisch een taak aanmaken bij het verzenden van een e-mail in Outlook met VBA

---

Automatisch een taak aanmaken bij het verzenden van een e-mail in Outlook met VBA

Met de onderstaande VBA-code kunt u automatisch een taak aanmaken op basis van een e-mail die u in Outlook verzendt. Volg hiervoor de volgende stappen.

1. Start Outlook en druk op 'Alt' + 'F11' om het venster Microsoft Visual Basic for Applications te openen.

2. Kopieer in het venster 'Microsoft Visual Basic for Applications' de onderstaande VBA-code naar het codovenster 'ThisOutlookSession'.

VBA-code: Automatisch een taak aanmaken bij het verzenden van een e-mail in Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice 20181123
    Dim xYesNo As Integer
    Dim xPrompt As String
    Dim xTaskItem As TaskItem
    Dim xRecipient As String
    On Error Resume Next
    xPrompt = "Do you want to create a task for this message?"
    xYesNo = MsgBox(xPrompt, vbYesNo + vbInformation, "Kutools for Outlook")
    Cancel = False
    If xYesNo = vbNo Then Exit Sub
    Set xTaskItem = Application.CreateItem(olTaskItem)
    For Each Rcp In Item.Recipients
        If xRecipient = "" Then
            xRecipient = Rcp.Address
        Else
            xRecipient = xRecipient & vbCrLf & Rcp.Address
        End If
    Next Rcp
    xRecipient = xRecipient & vbCrLf & Item.Body
    With xTaskItem
        .Subject = Item.Subject
        .StartDate = Item.ReceivedTime
        .DueDate = Date + 3 + CDate("9:00:00 AM")
        .ReminderSet = True
        .ReminderTime = Date + 2 + CDate("9:00:00 AM")
        .Body = xRecipient
        .Save
    End With
    Set xTaskItem = Nothing
End Sub

Opmerking: De ontvangers en de tekst van het bericht worden automatisch toegevoegd aan de taak. De startdatum van de taak is gelijk aan de verzenddatum van het bericht, en de taak moet binnen drie dagen worden afgerond. U ontvangt na één dag om 9 uur een herinnering voor deze taak. U kunt deze instellingen naar wens aanpassen.

3. Sla de code op en druk op Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.

4. Vanaf nu verschijnt er, zodra u op de knop **Verzenden** klikt in een nieuw of beantwoord e-mailvenster, een dialoogvenster **Taak aanmaken**, zoals hieronder in de schermafbeelding wordt getoond. Klik op **Ja** om de e-mail te verzenden én automatisch een taak aan te maken, of klik op **Nee** om de e-mail te verzenden zonder een taak aan te maken.