Erinnerungsmail wenn Datum erreicht

[Leonhard]

Hallo zusammen,

ich habe einen Code gefunden der eigentlich genau das macht was ich bräuchte. Mail senden, wenn Datum erreicht.

https://forum.chip.de/discussion/1395917...excel-2007 hier findet sich der Code.

Probleme gibt es mit dem Teil der in das Modul eingetragen wird. ab: Dim olMessage As Outlook.MailItem  (benutzerdefinierte Typ nicht definiert)

Versteht jemand wo genau der Fehler dabei liegt?

Liebe Grüße
Leo

[Storax]

Extras/Verweise und Outlook auswählen

[Case]

Hallo, :19:

du musst einen Verweis auf die Outlook Bibliothek setzen. Im VBA Editor unter Extras - Verweise. :21:

[Leonhard]

Vielen lieben Dank =)
Eine letzte Frage noch: wie müsste ich den Code ändern dass die Mail nur angestoßen wird wenn das Datum in der Liste z.B. 60 Tage vor dem aktuellen Datum liegt?

Liebe Grüße
Leo

[Storax]

PHP-Code:

If .Cells(1, 1).Value <= Date 


Das sieht mir stark nach der Bedingung aus, die geändert werden muss, wahrscheinlich zu

Code:

If .Cells(1, 1).Value <= Date -60

Und da bin ich mal gespannt

Eine letzte Frage noch

[Leonhard]

Und da bin ich mal gespannt

=))) Sorry
Sehe ich das richtig das der Code immer nur die erste Zeile abfragt? ich hätte mehrere Datumsangaben untereinander in der Spalte A die geprüft werden sollen.

[Storax]

Auf den ersten Blick sieht das so aus.
Es scheint "komischer Code" zu sein, da wird ja Sendkeys verwendet OMG

Code:

wshShell.SendKeys ("%s")

[Leonhard]

wäre es viel aufwand das dynamisch auf die ganze Spalte anzupassen? und was bedeutet Sendkeys? klingt nicht wirklich positiv deine Reaktion

[Storax]

Aufwand ist relativ, für mich vielleicht 10min bis 1h und ich muss niemanden fragen.
Für Dich nur mit fremder Hilfe zu schaffen.

Aber ich passe sicher so einen Code nicht an, vielleicht jemand anders.

Sendkeys bedeutet, dass Tastenschläge simuliert werden. Das ist relativ instabil.

[EbyAS]

Hallo Leo,
lade mal Dein Sheet hoch ich baue es Dir ein.