VBA E-Mail mit Datum als Bedingung

Forumthread: VBA E-Mail mit Datum als Bedingung

27.09.2018 17:19:55

Max

Hallo zusammen,
1. Möchte ich mich für die hammer unterstützung bedanken! es ist nicht selbstverständlich und dank euch läuft vieles schon ziemlich gut bei mir in der Firma :)
2. Zu meinem Code:
untenstehender Code soll das Datum aus Spalte I überprüfen. Wenn es alter als 7 Tage ist, dann soll eine mail generiert werden und im Body sollen alle Kunden (die sind in Spalte A) als Body eingefügt werden.
Geht das alles ohne, dass ich das makro laufen lassen muss. Ich meine z.B. jeden morgen um 08:00 Uhr ohne das die datei geöffnet wird?
einmal mehr, vielen vielen dank!


Sub erinnerungsmail()
Dim i As Date
Dim letzte As Date
For i = 4 To 15
Cells(i, 9).Select
If Format(Cells(i, 9), "dd.mm.yy")

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA E-Mail mit Datum als Bedingung

28.09.2018 10:24:47

Rob
AW: VBA E-Mail mit Datum als Bedingung

28.09.2018 10:29:09

Rob
AW: VBA E-Mail mit Datum als Bedingung

28.09.2018 17:14:26

Rob

AW: VBA E-Mail mit Datum als Bedingung

28.09.2018 10:24:47

Rob

Hi Max,
Verbindung aus Aufgabenplanung in Windows und folgendem Code:


Private Sub Workbook_Open()
Application.OnTime TimeValue("10:30"), erinnerungsmail
End Sub

AW: VBA E-Mail mit Datum als Bedingung

28.09.2018 10:29:09

Rob

Hier ist eine gute Anleitung zum Aufgabenplaner
https://praxistipps.chip.de/windows-task-scheduler-aufgaben-in-windows-erstellen_28308

AW: VBA E-Mail mit Datum als Bedingung

28.09.2018 17:14:26

Rob

Der Name Deiner Sub muss hier in Anführungszeichen "erinnerungsmail" (habe ich im ersten Post vergessen) aber für Deinen Fall würde es ausreichen, wenn Du in das Workbook-Event einfach die Sub über

Call erinnerungsmail

ausführst. Die Ausführungszeit ist ja bereits über die Aufgabenplanung getimed.

Infobox / Tutorial

E-Mail-Benachrichtigung mit VBA basierend auf Datum

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um eine E-Mail-Benachrichtigung in Excel zu automatisieren, die auf einem Datum in einer bestimmten Spalte basiert, folge diesen Schritten:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
- Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsm)“.
- Wähle „Einfügen“ und dann „Modul“.

Kopiere den folgenden VBA-Code in das Modul:

Sub erinnerungsmail()
   Dim i As Integer
   Dim letzte As Integer
   Dim emailBody As String
   emailBody = "Die folgenden Kunden haben ein Datum älter als 7 Tage:"

   letzte = Cells(Rows.Count, 9).End(xlUp).Row ' Letzte Zeile in Spalte I
   For i = 4 To letzte
       If Cells(i, 9).Value < Date - 7 Then
           emailBody = emailBody & vbCrLf & Cells(i, 1).Value ' Kunden in Spalte A
       End If
   Next i

   ' Hier wird die E-Mail gesendet (bitte deinen E-Mail-Client anpassen)
   Call SendEmail(emailBody)
End Sub

Sub SendEmail(body As String)
   ' Hier den Code zum Senden einer E-Mail einfügen
End Sub

Setze die Ausführungszeit für das Makro, um die E-Mail automatisch zu senden, ohne die Datei zu öffnen:
```
Private Sub Workbook_Open()
   Application.OnTime TimeValue("08:00:00"), "erinnerungsmail"
End Sub
```
Speichere die Datei als Makro-fähige Arbeitsmappe (.xlsm).

Häufige Fehler und Lösungen

E-Mail wird nicht gesendet: Überprüfe, ob der E-Mail-Code in der SendEmail-Subroutine korrekt implementiert ist.
Makro läuft nicht automatisch: Stelle sicher, dass die Arbeitsmappe als .xlsm gespeichert ist und dass die Makros in Excel aktiviert sind.
Fehler beim Zugriff auf Zellen: Achte darauf, dass der Bereich, auf den du zugreifst, tatsächlich Daten enthält.

Alternative Methoden

Falls du keine VBA-Lösung verwenden möchtest, kannst du auch den Windows-Aufgabenplaner nutzen:

Erstelle ein Skript (z.B. mit PowerShell), das die Excel-Datei öffnet und das Makro ausführt.
Programmiere den Aufgabenplaner so, dass er das Skript täglich zur gewünschten Uhrzeit ausführt.

Praktische Beispiele

Beispiel 1: Du möchtest alle Kunden, deren Aufträge älter als 7 Tage sind, in einer E-Mail auflisten. Der oben bereitgestellte Code erfüllt genau dieses Szenario.
Beispiel 2: Du kannst den E-Mail-Versand anpassen, um spezifische Informationen über jeden Kunden zu erhalten, indem du zusätzliche Spalten hinzufügst und diese in den emailBody integrierst.

Tipps für Profis

Debugging: Verwende Debug.Print im Code, um Werte während der Ausführung anzuzeigen. Dies hilft beim Finden von Fehlern.
E-Mail-Formatierung: Nutze HTML-Formatierungen für professionellere E-Mails. Das kannst du in der SendEmail-Subroutine umsetzen.
Sicherheitsrichtlinien: Achte darauf, dass deine E-Mail-Software das Senden von E-Mails über Makros erlaubt, um Sicherheitswarnungen zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich die E-Mail-Adresse dynamisch festlegen?
Du kannst die E-Mail-Adresse in einer bestimmten Zelle speichern und dann im Code darauf zugreifen.

2. Funktioniert das auch in Excel Online?
Leider unterstützt Excel Online keine VBA-Makros. Diese Lösung ist nur für die Desktop-Version von Excel geeignet.

Beliebteste Forumthreads (12 Monate)

VBA E-Mail mit Datum als Bedingung

Forumthread: VBA E-Mail mit Datum als Bedingung

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

E-Mail-Benachrichtigung mit VBA basierend auf Datum

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread