Office-Fragen.de

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

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

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.

fritzmaier3

Mase

EbyAS