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.
