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
Note: 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 Absenden 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.
Beste Office-Produktivitätstools
Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks
🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...
📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP) / Planen Sie das Senden von E-Mails / Automatisches CC/BCC nach Regeln beim E-Mail-Versand / Automatische Weiterleitung (erweiterte Regeln) / Begrüßung automatisch hinzufügen / Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...
📨 E-Mail-Management: E-Mails einfach abrufen / Blockieren Sie betrügerische E-Mails nach Betreff und anderen / Doppelte E-Mails löschen / Erweiterte Suche / Ordner konsolidieren ...
📁 Anhänge Pro: Batch speichern / Stapeltrennung / Stapelkomprimierung / Automatisches Speichern / Automatische Trennung / Automatische Komprimierung ...
???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis / Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten / Ausblick minimieren statt schließen ...
👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu / Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf / Geburtstagserinnerungen entfernen ...
Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.