Note: The other languages of the website are Google-translated. Back to English

Wie erstelle ich automatisch eine Aufgabe beim Senden von E-Mails in Outlook?

Manchmal müssen Sie beim Senden in Outlook automatisch eine Aufgabe einer E-Mail erstellen. Hier bieten wir eine Methode, mit der Sie dies schnell erledigen können.

Erstellen Sie automatisch eine Aufgabe, wenn Sie E-Mails in Outlook mit VBA senden


Erstellen Sie automatisch eine Aufgabe, wenn Sie E-Mails in Outlook mit VBA senden

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

1. Starten Sie Outlook und drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Fenster, kopieren Sie den folgenden VBA-Code in das DieseOutlookSession Codefenster.

VBA-Code: Erstellen Sie beim Senden von E-Mails in Outlook automatisch eine Aufgabe

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

Hinweis: Die Nachrichtenempfänger und der Nachrichtentext werden automatisch zum Aufgabenkörper hinzugefügt. Das Startdatum der Aufgabe ist das Versanddatum der Nachricht. Die Aufgabe ist in 3 Tagen fällig. Sie werden nach einem Tag um 9 Uhr an die Aufgabe erinnert. Sie können sie nach Bedarf ändern.

3. Speichern Sie den Code und drücken Sie die Taste Andere + Q Tasten zum Schließen des Fensters Microsoft Visual Basic für Applikationen.

4. Klicken Sie ab sofort auf Senden Schaltfläche in einem neuen oder einem beantworteten E-Mail-Fenster, a Aufgabe erstellen Das Dialogfeld wird angezeigt (siehe Abbildung unten). Klicken Sie auf Ja um die E-Mail zu senden und eine Aufgabe automatisch zu erstellen, oder klicken Sie auf Nein um die E-Mail zu senden, ohne eine Aufgabe zu erstellen.


Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!

  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
  • Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
  • Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 1180x121
 
Kommentare (3)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit, dies so zu ändern, dass mehr Links zur gesendeten E-Mail als nur Empfänger und Betreff enthalten sind? dh. die gesendete Mail als Anhang hinzufügen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
HALLO,

Das hat ein paar Tage funktioniert und jetzt geht es nicht mehr.

Gibt es einen Grund?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Terri Amos,
Bitte aktivieren Sie die Option Alle Makros aktivieren und die Option Makrosicherheitseinstellungen auf installierte Add-Ins anwenden, wie im folgenden Screenshot gezeigt. Starten Sie danach Ihr Outlook neu.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL