Automatische Mail wenn Abgabe 8 Tage her ist

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Oliver,

so, puhh, endlich fertig.
Hat mich doch etwas mehr Mühe gekostet, als ich dachte :-)

hier...
https://www.herber.de/bbs/user/166945.xlsm

Erklärung:
1. Direkt nach Öffnen der Datei wird geprüft, ob es Datenzeilen gibt, in denen der Abgabetermin um mehr als 8 Tage überschritten ist
wenn Nein, passiert nix
wenn Ja...
...wird ein neues Tabellenblatt in der Datei hinzugefügt
...alle Datenzeilen (nur die Spalten A bis G), wo 8 Tage überschritten, werden kopiert und im neuen Blatt eingefügt (wenn du andere Spalten als A bis G willst, musst du das im Code anpassen)
...im Tabellenblatt, in dem - alle - Datenzeilen stehen, wird in Spalte H ein entsprechender Eintrag hinzugefügt, damit nicht jedes mal nach Öffnen der Datei eine Mail an dich gesendet wird
...es wird genau nur eine Outlook-Mail erzeugt, die alle gefundenen Datenzeilen aus neuem Blatt enthält
...diese eine Mail wird - an dich - gesendet (DU MUSST im Code an der richtigen Stelle noch deine Mailadresse eintragen)
(jetzt im Code ist es noch so, dass die Mail nur erst mal nur angezeigt wird. Versenden musst du die noch per Klick auf den Button. Das hab ich deswegen so programmiert, damit du erst mal prüfen kannst, ob alles so eingetragen ist, wie du es möchtest. Wenn alles passt, kannst du den .SEND- Befehl aktivieren; dann wird die Mail direkt versendet)

2. So, wenn du im Tabellenblatt mit allen Datenzeilen auf den neuen Button klickst, wird zuerst wieder geprüft, ob es Einträge mit mehr als 8 Tagen Überschreitung gibt
wenn Ja, dann...
...wird ein neues Tabellenblatt in der Datei hinzugefügt
...alle Datenzeilen (nur die Spalten A bis G), wo 8 Tage überschritten, werden kopiert und im neuen Blatt eingefügt (wenn du andere Spalten als A bis G willst, musst du das im Code anpassen)
...im Tabellenblatt, in dem - alle - Datenzeilen stehen, wird in Spalte I ein entsprechender Eintrag hinzugefügt, damit nicht jedes mal nach Klick auf Button alle Empfänger erneut dieselbe Mail erhalten
...jetzt wird im neuen Blatt, in Zeile 1 eine Anrede mit Namen des Empfängers eingetragen
...in Zeile 2 wird ein Hinweis mit Abgabeüberschreitung eingetragen
...alle Zeilen - die nicht - zum jeweiligen Empfänger gehören, werden ausgeblendet
...am Ende wird "Viele Grüße" eingetragen
...unterhalb des Grußtextes sollte DEIN Name stehen (DAS MUSST DU im Code noch anpassen)
...nun wird für jeden Empfänger eine eigene Outlook-Mail erzeugt; es wird die Mailadresse aus Spalte F eingetragen; Betrefftext und Mailtext enthält nur die für Empfänger relevanten Daten
...Mail wird an Empfänger versendet
(auch hier im Code ist es noch so, dass die Mail nur erst mal nur angezeigt wird. Versenden musst du die noch per Klick auf den Button. Das hab ich deswegen so programmiert, damit du erst mal prüfen kannst, ob alles so eingetragen ist, wie du es möchtest. Wenn alles passt, kannst du den .SEND- Befehl aktivieren; dann wird die Mail direkt versendet)

WICHTIG!
Beachte die Kommentare im Code.

Hilfts?

Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Automatische Mail wenn Abgabe 8 Tage her ist

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Automatische Mail wenn Abgabe 8 Tage her ist

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread