ich bin momentan dabei eine Excel-Liste zu erstellen, in der ich zu jedem Artikel eine Art "Mindesthaltbarkeitsdatum" habe. Meine Makro soll überprüfen, ob dieses Datum in der nächsten Woche vorliegt. Wenn ja, soll es eine E-Mail an die in der jeweiligen Zeile und in Spalte D hinterlegten E-Mailadresse senden.
Ich scheitere leider daran, dass ich mit dem Datum rechnen muss und es daher nicht als Text einlesen kann.
Meine Daten für die erste Zeile stehen in:
Haltbarkeitsdatum: B2, B3, B4, ....
E-Mailadressen: D2, D3, D4
Über Eure Hilfe freue ich mich.
Die Funktion, dass mein Programm die Mail senden soll, konnte ich mir so zusammen suchen, macht das Sinn?
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Cells(i, 4)
.Subject = Cells(i, 1) 'hier schreibe ich den Gerätenamen rein
.Body = Cells(i, 5) 'Sendetext" 'hier möchte ich noch einfügen welches Gerät fällig _
_
ist
.Send
End With
Set OutApp = Nothing
Set Nachricht = Nothing
Application.Wait (Now + TimeValue("0:00:10"))