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

or

Hoe maak ik automatisch een taak aan bij het verzenden van e-mail in Outlook?

Soms moet u automatisch een taak van een e-mail maken wanneer u deze in Outlook verzendt. Hier bieden we u een methode om het snel voor elkaar te krijgen.

Maak automatisch een taak bij het verzenden van e-mail in Outlook met VBA


Maak automatisch een taak bij het verzenden van e-mail in Outlook met VBA

Met de onderstaande VBA-code kunt u automatisch een taak maken op basis van een verzendende e-mail in Outlook. Ga als volgt te werk.

1. Start uw Outlook, druk op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen -venster, kopieer de onderstaande VBA-code naar het DezeOutlookSessie codevenster.

VBA-code: maak automatisch een taak bij het verzenden van 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 van het bericht en de berichttekst worden automatisch aan de hoofdtekst van de taak toegevoegd. De startdatum van de taak is de verzenddatum van het bericht en de taak moet over 3 dagen worden voltooid. Na één dag wordt u om 9 uur aan de taak herinnerd. U kunt ze naar behoefte wijzigen.

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

4. Vanaf nu, wanneer u op de Verstuur knop in een nieuw of beantwoord e-mailvenster, een Maak Task dialoogvenster verschijnt zoals onderstaand screenshot, klik op Ja om de e-mail te verzenden en automatisch een taak te maken, of klik op Nee om de e-mail te verzenden zonder een taak te creëren.


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.