Wie versendet man eine E-Mail, sobald das Fälligkeitsdatum in Excel erreicht ist?
Wie im folgenden Screenshot gezeigt, wird eine E-Mail an den in Spalte A angegebenen Empfänger gesendet und der in Spalte B hinterlegte Inhalt als E-Mail-Text eingefügt, sobald das Fälligkeitsdatum in Spalte C kleiner oder gleich 7 Tage ab dem aktuellen Datum ist (z. B. bei einem aktuellen Datum von 2017/9/13). Wie lässt sich dies umsetzen? Dieser Artikel stellt Ihnen einen VBA-Code zur Verfügung, der Sie dabei unterstützt.
E-Mail versenden, wenn Fälligkeitsdatum mit VBA-Code erfüllt ist
E-Mail versenden, wenn Fälligkeitsdatum mit VBA-Code erfüllt ist
Führen Sie die folgenden Schritte aus, um eine E-Mail-Erinnerung zu versenden, sobald das Fälligkeitsdatum in Excel erreicht ist.
1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
VBA-Code: E-Mail versenden, wenn Fälligkeitsdatum in Excel geschlossen wird
Public Sub CheckAndSendMail()
'Updated by Extendoffice 2018/11/22
Dim xRgDate As Range
Dim xRgSend As Range
Dim xRgText As Range
Dim xRgDone As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xLastRow As Long
Dim vbCrLf As String
Dim xMailBody As String
Dim xRgDateVal As String
Dim xRgSendVal As String
Dim xMailSubject As String
Dim i As Long
On Error Resume Next
Set xRgDate = Application.InputBox("Please select the due date column:", "KuTools For Excel", , , , , , 8)
If xRgDate Is Nothing Then Exit Sub
Set xRgSend = Application.InputBox("Please select the recipients?email column:", "KuTools For Excel", , , , , , 8)
If xRgSend Is Nothing Then Exit Sub
Set xRgText = Application.InputBox("Select the column with reminded content in your email:", "KuTools For Excel", , , , , , 8)
If xRgText Is Nothing Then Exit Sub
xLastRow = xRgDate.Rows.count
Set xRgDate = xRgDate(1)
Set xRgSend = xRgSend(1)
Set xRgText = xRgText(1)
Set xOutApp = CreateObject("Outlook.Application")
For i = 1 To xLastRow
xRgDateVal = ""
xRgDateVal = xRgDate.Offset(i - 1).Value
If xRgDateVal <> "" Then
If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
xRgSendVal = xRgSend.Offset(i - 1).Value
xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
vbCrLf = "<br><br>"
xMailBody = "<HTML><BODY>"
xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
xMailBody = xMailBody & "Text : " & xRgText.Offset(i - 1).Value & vbCrLf
xMailBody = xMailBody & "</BODY></HTML>"
Set xMailItem = xOutApp.CreateItem(0)
With xMailItem
.Subject = xMailSubject
.To = xRgSendVal
.HTMLBody = xMailBody
.Display
'.Send
End With
Set xMailItem = Nothing
End If
End If
Next
Set xOutApp = Nothing
End SubHinweise: Die Zeile If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then im VBA-Code bedeutet, dass das Fälligkeitsdatum mehr als 1 Tag und höchstens 7 Tage in der Zukunft liegen muss. Sie können dies nach Bedarf anpassen.
3. Drücken Sie die F5-Taste, um den Code auszuführen. Wählen Sie im ersten erscheinenden Kutools für Excel-Dialogfeld den Bereich der Fälligkeitsdatum-Spalte aus und klicken Sie auf die Schaltfläche OK. Siehe Screenshot:
4. Anschließend erscheint das zweite Kutools für Excel-Dialogfeld. Wählen Sie den entsprechenden Spaltenbereich mit der Empfänger-E-Mail-Adresse aus und klicken Sie auf die Schaltfläche OK. Siehe Screenshot:
5. Wählen Sie im letzten Kutools für Excel-Dialogfeld den Inhalt aus, der im E-Mail-Text angezeigt werden soll, und klicken Sie auf die Schaltfläche OK.
Sobald das Fälligkeitsdatum in Spalte C kleiner als oder gleich 7 Tage beträgt, wird automatisch eine E-Mail mit dem angegebenen Empfänger, Betreff und Textinhalt erstellt. Klicken Sie auf die Schaltfläche Senden, um die E-Mail zu versenden.
Hinweise:
1. Jede erstellte E-Mail bezieht sich auf ein Fälligkeitsdatum. Erfüllen beispielsweise drei Fälligkeitsdaten die Kriterien, werden automatisch drei E-Mails erstellt.
2. Der Code wird nicht ausgeführt, wenn keine Daten die Kriterien erfüllen.
3. Der VBA-Code funktioniert ausschließlich mit Outlook als Ihrem E-Mail-Programm.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Verwandte Artikel:
- Wie kann man automatisch eine E-Mail basierend auf einem Zellenwert in Excel versenden?
- Wie versendet man eine E-Mail über Outlook, sobald die Arbeitsmappe in Excel gespeichert wurde?
- Wie versende ich eine E-Mail, sobald eine bestimmte Zelle in Excel geändert wurde?
- Wie sendet man eine E-Mail, sobald eine Schaltfläche in Excel angeklickt wird?
- Wie sendet man eine E-Mail-Erinnerung oder -Benachrichtigung, sobald die Arbeitsmappe in Excel aktualisiert wird?
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