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
Note: 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 Verzenden 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.
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.