Wie sendet man eine E-Mail-Erinnerung oder -Benachrichtigung, sobald die Arbeitsmappe in Excel aktualisiert wird?
In bestimmten Fällen möchten Sie möglicherweise sofort eine E-Mail-Benachrichtigung an einen festgelegten Empfänger senden, sobald sich Daten in der von Ihnen versendeten Arbeitsmappe aktualisieren. Dieser Artikel zeigt Ihnen eine effiziente Methode, um genau das zu erreichen.
E-Mail-Erinnerung oder -Benachrichtigung bei Aktualisierung der Arbeitsmappe mithilfe von VBA-Code senden
So senden Sie eine E-Mail-Erinnerung oder -Benachrichtigung, sobald die Arbeitsmappe aktualisiert wird:
1. Öffnen Sie in der Arbeitsmappe das entsprechende Arbeitsblatt, auf dessen aktualisierten Daten Ihre E-Mail-Benachrichtigung basieren soll.
2. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie Code anzeigen aus dem Kontextmenü. Siehe Screenshot:
2. Kopieren Sie im Fenster Microsoft Visual Basic for Applications den folgenden Code, und fügen Sie ihn in das Codefenster ein. Siehe Screenshot:
VBA-Code: E-Mail-Erinnerung oder -Benachrichtigung bei Aktualisierung der Arbeitsmappe senden
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
Dim xYesOrNo As Integer
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
If xYesOrNo = 6 Then ActiveWorkbook.Save
If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.cc = ""
.Subject = "email notification test"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
If xYesOrNo = 6 Then .Attachments.Add xName
.Display
End With
xMailItem = Nothing
xOutApp = Nothing
End SubHinweis: Ersetzen Sie „E-Mail-Adresse“ durch die tatsächliche Empfänger-E-Mail-Adresse in der Zeile .To = „E-Mail-Adresse". Passen Sie außerdem die Felder Cc, Betreff und Nachrichtentext im VBA-Code ganz nach Ihren Bedürfnissen an.
3. Drücken Sie die Tastenkombination Alt+Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
4. Nachdem Sie eine Zelle im Arbeitsblatt bearbeitet haben, erscheint ein Dialogfeld Kutools für Excel, wie im folgenden Screenshot dargestellt. Wenn Sie die aktualisierte Arbeitsmappe als Anhang der E-Mail beifügen möchten, klicken Sie auf die Schaltfläche Ja. Andernfalls klicken Sie auf die Schaltfläche Nein.
5. Anschließend wird automatisch eine E-Mail erstellt – mit oder ohne die aktualisierte Arbeitsmappe als Anhang. Alle festgelegten Felder sind bereits enthalten. Klicken Sie auf die Schaltfläche Senden, um die E-Mail direkt zu versenden.
Hinweis: Der VBA-Code funktioniert nur, wenn Sie Outlook als Ihr E-Mail-Programm verwenden.
Verwandte Artikel:
- Wie sendet man eine E-Mail automatisch, sobald sich ein bestimmter Zellenwert in Excel ändert?
- Wie sendet man eine E-Mail über Outlook, sobald die Arbeitsmappe in Excel gespeichert wurde?
- Wie sendet man eine E-Mail, sobald sich eine bestimmte Zelle in Excel ändert?
- Wie sendet man eine E-Mail, sobald eine Schaltfläche in Excel angeklickt wird?
- Wie sendet man eine E-Mail, sobald das Fälligkeitsdatum in Excel erreicht ist?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins