Wie sendet man 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 Daten in der Arbeitsmappe, die Sie gesendet haben, aktualisiert wurden. Dieser Artikel zeigt Ihnen eine 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

Bitte gehen Sie wie folgt vor, um eine E-Mail-Erinnerung oder Benachrichtigung zu senden, wenn die Arbeitsmappe aktualisiert wird.

1. Öffnen Sie im Arbeitsmappenfenster ein bestimmtes Arbeitsblatt, basierend auf den aktualisierten Daten, für das Sie eine E-Mail-Benachrichtigung senden möchten.

2. Klicken Sie mit der rechten Maustaste auf die Registerkarte des Blatts und wählen Sie Bearbeiten aus dem Kontextmenü aus. 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 senden, 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

Hinweis: Ersetzen Sie die E-Mail-Adresse durch die Empfänger-E-Mail-Adresse in der Zeile .To = "E-Mail-Adresse". Ändern Sie außerdem die Felder Cc, Betreff und Text im VBA-Code nach Bedarf.

3. Drücken Sie die Tasten 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 von Kutools für Excel wie im folgenden Screenshot gezeigt. Wenn Sie die aktualisierte Arbeitsmappe an die E-Mail anhängen möchten, klicken Sie bitte auf die Schaltfläche Ja. Wenn nicht, klicken Sie auf die Schaltfläche Nein.

5. Dann wird automatisch eine E-Mail erstellt, mit oder ohne der angehängten aktualisierten Arbeitsmappe. Alle angegebenen Felder sind in der E-Mail enthalten. Bitte klicken Sie auf die Schaltfläche Senden, um sie zu versenden.

Hinweis: Der VBA-Code funktioniert nur, wenn Sie Outlook als Ihr E-Mail-Programm verwenden.

Verwandte Artikel:

• Wie sendet man automatisch eine E-Mail basierend auf einem Zellenwert in Excel?
• Wie sendet man eine E-Mail über Outlook, wenn die Arbeitsmappe in Excel gespeichert wird?
• Wie sendet man eine E-Mail, wenn eine bestimmte Zelle in Excel geändert wird?
• Wie sendet man eine E-Mail, wenn ein Button in Excel geklickt wird?
• Wie sendet man eine E-Mail, wenn ein Fälligkeitsdatum in Excel erreicht wurde?