Wie erstelle ich beim Senden einer E-Mail in Outlook automatisch eine Aufgabe?

Author: Siluvia Last Modified: 2025-08-06

Manchmal müssen Sie möglicherweise automatisch eine Aufgabe aus einer E-Mail erstellen, wenn Sie diese in Outlook senden. Hier bieten wir Ihnen eine Methode, um dies schnell zu erledigen.

Automatisches Erstellen einer Aufgabe beim Senden einer E-Mail in Outlook mit VBA

Automatisches Erstellen einer Aufgabe beim Senden einer E-Mail in Outlook mit VBA

Mit dem folgenden VBA-Code können Sie basierend auf einer gesendeten E-Mail in Outlook automatisch eine Aufgabe erstellen. Bitte gehen Sie wie folgt vor.

1. Starten Sie Ihr Outlook, drücken Sie "Alt" + "F11", um das Fenster "Microsoft Visual Basic for Applications" zu öffnen.

2. Kopieren Sie im Fenster "Microsoft Visual Basic for Applications" den folgenden VBA-Code in das Codefenster "ThisOutlookSession".

VBA-Code: Automatisches Erstellen einer Aufgabe beim Senden einer 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

the screenshot of step about creating a task when sending email in outlook 1

Hinweis: Die Empfänger der Nachricht und der Nachrichtentext werden automatisch in den Aufgabentext eingefügt. Das Startdatum der Aufgabe ist das Sendedatum der Nachricht, und die Aufgabe ist für 3 Tage fällig. Sie werden um 9 Uhr morgens am nächsten Tag an die Aufgabe erinnert. Sie können sie bei Bedarf ändern.

3. Speichern Sie den Code und drücken Sie "Alt" + "Q", um das Fenster Microsoft Visual Basic for Applications zu schließen.

4. Von nun an wird beim Klicken auf die Schaltfläche "Senden" in einem neuen oder beantworteten E-Mail-Fenster ein Dialogfeld "Aufgabe erstellen" wie im folgenden Screenshot gezeigt angezeigt. Klicken Sie auf "Ja", um die E-Mail zu senden und automatisch eine Aufgabe zu erstellen, oder klicken Sie auf "Nein", um die E-Mail ohne Erstellung der Aufgabe zu senden.