Automatische Mail in Excel

[fritzmaier3]

Guten Tag,

ich habe eine Tabelle A:M, immer wenn eine Bestellung (in K) offen ist soll eine Mail an den Verantwortlichen (in H) gesendet werden. Ist die Bestellung nach 10 Tagen immer noch offen, soll wieder eine Mail an 
den Verantwortlichen gesendet werden (Tage seit der Bestellung stehen in L).

ist die Bestellung erledigt (in K) soll eine Mail an den Auftraggeber (in F) versendet werden.

Wie funktioniert das?

Danke für die Hilfe

[Mase]

Moin,

gibt es zuhauf im Netz zu finden.
Um einen Anfang zu machen:

Code:

Sub EmailDirektSenden()
'
'https://www.makro-excel.de/2017/03/06/per-vba-makro-eine-email-mit-outlook-versenden/
'
Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
   .To = "deinname@deinedomain.de"
   .Subject = "Betreff"
   .Body = "Ihre Nachricht."
   .Send        'Sendet die Email automatisch
End With

End Sub

[EbyAS]

Hallo,
eine Version. Beachte: "Die Prüfung auf 10 Tage erfolgt nur beim öffnen des Sheets.
In Spalte M schreibt das Programm "Mail" wenn es eine 10 Tage Überschreitung gab. Dann nie wieder.
Der Code für die generierten Mail kann natürlich angepasst werden. D.h. die gewünschten Texte.