Wie sende ich eine E-Mail-Erinnerung oder Benachrichtigung, wenn die Arbeitsmappe in Excel aktualisiert wird?
In einigen Fällen müssen Sie möglicherweise eine E-Mail-Benachrichtigung an einen bestimmten Empfänger auslösen, wenn in der von Ihnen gesendeten Arbeitsmappe Daten aktualisiert wurden. Dieser Artikel zeigt Ihnen die Methode, um dies zu erreichen.
E-Mail-Erinnerung oder Benachrichtigung senden, wenn die Arbeitsmappe mit VBA-Code aktualisiert wird
E-Mail-Erinnerung oder Benachrichtigung senden, wenn die Arbeitsmappe mit VBA-Code aktualisiert wird
Gehen Sie wie folgt vor, um eine E-Mail-Erinnerung oder eine Benachrichtigung zu senden, wenn die Arbeitsmappe aktualisiert wird.
1. Öffnen Sie in der Arbeitsmappe ein angegebenes Arbeitsblatt, an das Sie eine E-Mail-Benachrichtigung basierend auf den darin enthaltenen aktualisierten Daten senden.
2. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt und wählen Sie Code anzeigen aus dem Kontextmenü. Siehe Screenshot:
2. In dem Microsoft Visual Basic für Applikationen Kopieren Sie den folgenden Code und fügen Sie ihn in das Codefenster ein. Siehe Screenshot:
VBA-Code: Senden Sie eine E-Mail-Erinnerung oder eine Benachrichtigung, wenn die Arbeitsmappe aktualisiert wird
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 Sub
Note: Ersetzen Sie die E-Mail-Adresse durch die E-Mail-Adresse des Empfängers .To = "E-Mail-Adresse". Ändern Sie die Felder Cc, Subject und body im VBA-Code nach Bedarf.
3. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
4. Nachdem Sie eine Zelle im Arbeitsblatt bearbeitet haben, a Kutools for Excel Das Dialogfeld wird wie im folgenden Screenshot angezeigt. Wenn Sie die aktualisierte Arbeitsmappe an die E-Mail anhängen möchten, klicken Sie bitte auf Ja Taste. Wenn nicht, klicken Sie auf Nein .
5. Anschließend wird automatisch eine E-Mail mit oder ohne angehängte aktualisierte Arbeitsmappe erstellt. Alle angegebenen Felder werden auch in der E-Mail aufgelistet. Bitte klicken Sie auf Absenden Taste, um es zu senden.
Note: Der VBA-Code funktioniert nur, wenn Sie Outlook als E-Mail-Programm verwenden.
In Verbindung stehende Artikel:
- Wie sende ich automatisch E-Mails basierend auf dem Zellenwert in Excel?
- Wie sende ich eine E-Mail über Outlook, wenn die Arbeitsmappe in Excel gespeichert ist?
- Wie sende ich eine E-Mail, wenn eine bestimmte Zelle in Excel geändert wird?
- Wie sende ich eine E-Mail, wenn in Excel auf die Schaltfläche geklickt wird?
- Wie sende ich eine E-Mail, wenn das Fälligkeitsdatum in Excel erreicht wurde?
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!