So senden Sie automatisch eine Outlook-E-Mail-Benachrichtigung, wenn ein bestimmtes Excel-Arbeitsblatt aktualisiert wird

Jedes Mal, wenn Sie ein bestimmtes Excel-Arbeitsblatt aktualisieren und immer eine E-Mail-Benachrichtigung an bestimmte Empfänger senden müssen, können Sie die in diesem Artikel beschriebene Methode verwenden.

Einige Benutzer fragen nach einer Lösung, mit der MS Excel bei jeder Aktualisierung eines bestimmten Arbeitsblatts automatisch eine Outlook-E-Mail-Benachrichtigung an bestimmte Personen senden kann, da sie häufig vergessen, eine solche E-Mail zu senden. Im Folgenden erfahren Sie, wie Sie diese Funktion mit VBA-Code erreichen.

Automatisches Senden einer E-Mail, wenn ein bestimmtes Excel-Arbeitsblatt aktualisiert wird

1. Erhalten Sie zunächst Zugriff auf die Excel-Quellarbeitsmappe, die das jeweilige Arbeitsblatt enthält.
2. Gehen Sie dann im MS Excel-Fenster zum Menü "Datei" und wählen Sie "Optionen".
3. Wechseln Sie anschließend im Fenster "Excel-Optionen" zur Registerkarte "Trust Center" und klicken Sie auf die Schaltfläche "Trust Center-Einstellungen".
4. Wechseln Sie anschließend im neuen Fenster zur Registerkarte "Makroeinstellungen", unter der Sie "Alle Makros aktivieren" auswählen sollten.
5. Wechseln Sie anschließend zur Registerkarte "Datenschutzoptionen" und aktivieren Sie die Funktion "Persönliche Informationen beim Speichern aus den Dateieigenschaften entfernen".
6. Klicken Sie dann auf mehrere "OK", um diese Einstellungen zu speichern.
7. Greifen Sie nach dem Sichern der Excel-Arbeitsmappe auf das jeweilige Arbeitsblatt zu.
8. Klicken Sie mit der rechten Maustaste auf den Arbeitsblattnamen in der unteren Seitenleiste und wählen Sie "Code anzeigen".
9. Kopieren Sie anschließend den folgenden VBA-Code in das Projekt des jeweiligen Blattes.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nConfirmation As Integer
    Dim objNewWorkbook As Excel.Workbook
    Dim objNewWorksheet As Excel.Worksheet
    Dim objOutlookApp As Object
    Dim objMail As Object
 
    nConfirmation = MsgBox("Do you want to send an email notification about the sheet updating now?", vbInformation + vbYesNo, "Mail Sheet Updates")
 
    If nConfirmation = vbYes Then
       ActiveWorkbook.Save

       On Error Resume Next
       Set objOutlookApp = CreateObject("Outlook.Application")
       Set objMail = objOutlookApp.CreateItem(olMailItem)
  
       'Change the email details as per your needs
       With objMail
           .To = "test@datanumen.com"
           .Subject = "Email Notifying Sheet Updates"
           .Body = "Hi," & vbCrLf & vbCrLf & "The worksheet " & Chr(34) & ActiveWorkbook.Sheets(1).Name & Chr(34) & " in this Excel workbook attachment is updated."
           'Attach this workbook
           .Attachments.Add ActiveWorkbook.FullName
           .Send
      End With
    End If
End Sub

10. Danach sollten Sie diese Arbeitsmappe als Excel Macro-Enabled Workbook speichern.

• Schließen Sie zunächst das Fenster "Microsoft Visual Basic für Applikationen".
• Klicken Sie dann in der linken oberen Ecke auf "Datei".
• Wählen Sie als Nächstes "Speichern unter".
• Wählen Sie im Dialogfeld im Feld "Dateityp" die Option "Excel Macro-Enabled Workbook".
• Klicken Sie abschließend auf die Schaltfläche „Speichern“.

11. Schließlich können Sie diese Arbeitsmappe schließen.
12. Jetzt können Sie die zuvor gespeicherte Excel-Arbeitsmappe mit Makrofunktion öffnen.
13. Wenn Sie Änderungen am jeweiligen Arbeitsblatt vornehmen, werden Sie gefragt, ob Sie eine E-Mail-Benachrichtigung senden möchten.
14. Wenn Sie auf die Schaltfläche "Ja" klicken, wird eine Outlook-E-Mail an die vordefinierten Empfänger gesendet.
15. Diese E-Mail sieht wie folgt aus:

Reparieren Sie beschädigte Outlook-Datendateien

Möglicherweise sind Sie jemals auf eine Beschädigung der Excel-Datei gestoßen. Tatsächlich ist die Outlook-Datendatei genauso anfällig wie die Excel-Datei. Zum Beispiel kann ein unsachgemäßes Schließen von Outlook leicht zu einer Beschädigung der PST-Datei führen. Daher ist es wichtig, Maßnahmen zum Schutz der Outlook-Datei zu ergreifen, einschließlich regelmäßiger Datensicherungen sowie der Vorbereitung eines robusten PST-Fix-Tools wie z DataNumen Outlook Repair. Dieses Dienstprogramm ist leistungsfähig genug, um PST reparieren Probleme und PST-Daten wiederherstellen.

Einführung des Autors:

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