So senden Sie automatisch eine Benachrichtigungs-E-Mail, wenn eine bestimmte Aufgabe in Outlook abgeschlossen ist

Nach Abschluss einer Aufgabe in Outlook möchten viele Benutzer möglicherweise eine Benachrichtigungs-E-Mail senden, um jemanden wie den Vorgesetzten zu benachrichtigen. Das manuelle Senden der E-Mail ist zeitaufwändig. In diesem Artikel wird eine schnelle Methode zum automatischen Senden dieser Art von E-Mails vorgestellt.

Aus dem Artikel „4 Schnelle Schritte zum Zuweisen von Aufgaben zu anderen in Ihrem Outlook”Können Sie wissen, dass sie automatisch eine Berichts-E-Mail erhalten können, wenn Ihnen die Aufgabe von Ihrem Vorgesetzten zugewiesen wurde und dieser zuvor einen Statusbericht benötigt hat (siehe Abbildung unten).

Wenn die Aufgabe jedoch nur selbst erstellt wird, sendet Outlook niemals eine Benachrichtigungs-E-Mail an jemanden, wenn Sie sie als abgeschlossen markieren. Wenn Sie in diesem Fall eine Benachrichtigungs-E-Mail senden möchten, um Ihre Arbeit zu melden, müssen Sie dies manuell tun. Mit den folgenden VBA-Codes können Sie Outlook dies jedoch automatisch ausführen lassen.

Automatisches Senden einer Benachrichtigungs-E-Mail, wenn eine bestimmte Aufgabe abgeschlossen ist

1. Als Erstes sollten Sie Outlook starten und zur Registerkarte „Entwickler“ wechseln.
2. Suchen Sie dann die Schaltfläche "Visual Basic" und klicken Sie darauf. Ein neues Fenster "Microsoft Visual Basic für Anwendungen" wird angezeigt.
3. Doppelklicken Sie danach auf das Projekt „ThisOutlookSession“, um es zu öffnen, und kopieren Sie die folgenden VBA-Codes hinein.

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderTasks).Items
End Sub

Private Sub olItems_ItemChange(ByVal Item As Object)
    Dim obApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    Dim Recip As String
 
    'Replace "test" as per your needs
    If InStr(LCase(Item.Subject), "test") > 0 And Item.Complete = True Then
       'Replace with your desired contact
       Recip = "John Smith"
       If MsgBox("Do you want to send a report to " & Recip & " ?", vbYesNo + vbQuestion, "Confirm Sending Report") = vbYes Then
          Set obApp = Outlook.Application
          Set olMail = obApp.CreateItem(olMailItem)
          With olMail
               .To = Recip
               .Subject = "Complete: " & Item.Subject
               .Body = "Dear Mr. Smith" & vbCrLf & "I've completed this task in " & DateDiff("d", Item.CreationTime, Now) & " day" & Chr(40) & "s" & Chr(41) & "." & vbCrLf & vbCrLf & "Task Name: " & Item.Subject & vbCrLf & "Start Date: " & Item.StartDate & vbCrLf & "Due Date: " & Item.DueDate & vbCrLf & "Creation Time: " & Item.CreationTime & vbCrLf & "Completed Time: " & Now & vbCrLf & vbCrLf & "Task Details: " & vbCrLf & Item.Body
               .ReadReceiptRequested = True
               'To directly send it,use ".Send" instead
               .Display
          End With
       End If
    End If
End Sub

4. Anschließend signieren Sie diesen Code und ändern die Makroeinstellungen so, dass nur digital signierte Makros zulässig sind.
5. Schließlich können Sie das aktuelle Fenster verlassen und es versuchen.

• Wenn Sie eine Aufgabe als erledigt markieren, erhalten Sie eine Nachricht wie das folgende Bild:
• Wenn Sie auf die Schaltfläche "Ja" klicken, wird eine neue Nachricht geöffnet (siehe Abbildung unten):

Hinweis: Wenn Sie ".display" durch ".Send" ersetzen, wird diese E-Mail direkt gesendet, ohne dass sie angezeigt wird.

Achten Sie auf Nachrichten von unbekannten E-Mail-Adressen

Sie müssen jemals viele E-Mails von unbekannten Adressen erhalten haben. Es ist ratsam, auf diese Art von E-Mails zu achten. Dies liegt daran, dass sie möglicherweise harmlos aussehen, aber schädliche Links, Anhänge oder Makros enthalten. Sobald Sie darauf klicken oder sie öffnen, wird Ihr Outlook möglicherweise infiziert. Zu diesem Zeitpunkt haben Sie keine andere Wahl, als einen Stern zu verwenden, um Ihre Outlook-Daten zurückzugewinnen beschädigtes Outlook Data Fix-Dienstprogramm, sowie DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Reparieren Sie das SQL-MDF-Problem und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX