autom. E-Mails senden, wenn Werte überschritten

Hallo,
wie im Betreff bereits z.T. beschrieben möchte ich gerne via Excel/VBA einen Preisalarm erstellen.
Der Preisalarm soll automatisch eine E-Mail an Kunden versenden, wenn der Preis die Max. Grenze erreicht bzw. überschreitet oder die Min. Grenze erreicht bzw. unterschreitet.
Es soll pro Kunde nur eine Mail versandt werden.
Die Preise werden künftig einmal täglich von einem Dienstleister in einer anderen Datei geliefert.
Ich ziehe mir diese Werte automatisch in meine Tabelle.
Die Max. und Min. Grenzen, sowie die Daten zu den Kunden sind in meiner Tabelle hinterlegt.
Hier die Frage: Muss ich die Excel-Datei manuell öffnen, damit die Mails versandt werden, oder macht Excel das, ohne zu öffnen, automatisch?
Die E-Mail an sich enthält keine besonderen Informationen.
Hier die Frage: Ist es auch möglich, mit Daten aus meiner Tabelle die E-Mail auf jeden einzelnen Kunden inform einer korrekten Anschrift zu personalisieren?
Ich nutze Excel 2016 und Outlook für den Mailverkehr.
Ich habe hier mal eine Beispieldatei, wie die Tabelle in etwa aussehen wird, beigefügt:
https://www.herber.de/bbs/user/113650.xlsx
"TP" ist der Preis, der gezogen wird, Min. und Max. die Grenzen, bei denen an die E-Mail rechts daneben die Mail versendet werden soll.
Im Beispiel müsste also bereits eine Mail raus, da die Max. Grenze erreicht ist.
Optimal wäre es dann natürlich noch, wenn die Mail mit "Sehr geehrter ..." anfängt und er das "Herr" und das "Muster" in die Begrüßung übernimmt.
Optional:
Noch optimaler wäre es dann, wenn die Mail im Auftrag des Kundenberaters "Müller" verschickt werden kann. Hier weiß ich aber nichtmal, ob das überhaupt möglich ist.
Ich habe bereits ein wenig im Internet recherchiert und experimentiert, bin aber über mehr als einen Ansatz nicht hinaus gekommen.
Ich hoffe, jemand kann mir helfen :-)
Gruß Sven

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo!
Muss ich die Excel-Datei manuell öffnen
Ja!
Ist es auch möglich...zu personalisieren
Ja!
Hier Deine Bsp-Datei gleich mit fertigem Code (Makro "Preisalarm"), liegt im allgemeinen Modul1 (mit Alt+F11 die VBA-Entwicklungsumgebung aufrufen, oben links in der Explorer-Ansicht Doppelklick auf Modul1, da ist der Code - ich denke Du erkennst wo Du anpassen kannst... Const etc. )
https://www.herber.de/bbs/user/113652.xlsm
Probier's aus. Der Code (falls Du die Datei nicht öffnen kannst):

Sub Preisalarm()
Const BETREFF$ = "Preisalarm für "
Const ANREDEM$ = "Sehr geehrter Herr "
Const ANREDEF$ = "Sehr geehrte Frau "
Const MAILTEXT$ = "Das ist ein Standardtext für den Preisalarm!"
Const SCHLUSS$ = "Mit freundlichen Grüßen,"
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle1")
Dim Liste As Range, Eintrag As Range
Dim Ol As Object
On Error Resume Next
Set Ol = GetObject(, "Outlook.Application")
If Err Then Set Ol = CreateObject("Outlook.Application")
Set Liste = Ws.Range("A5:A" & Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Row)
For Each Eintrag In Liste
With Eintrag
If .Offset(, 3).Value = .Offset(, 5).Value Then
With Ol.CreateItem(0)
.Subject = BETREFF
.To = Eintrag.Offset(, 6).Value
.Body = IIf(Eintrag.Offset(, 7) = "Herr", ANREDEM, ANREDEF) & _
Eintrag.Offset(, 8).Value & vbLf & vbLf & _
MAILTEXT & vbLf & vbLf & _
"GP: " & Eintrag.Offset(, 1) & "|TP: " & Eintrag.Offset(, 3) & _
"|Min: " & Eintrag.Offset(, 4) & "|Max: " & Eintrag.Offset(, 5) & _
vbLf & vbLf & _
SCHLUSS & Eintrag.Value
.Display 'Mail anzeigen, manuell senden
'.Send 'Mail sofort senden
End With
End If
End With
Next Eintrag
End Sub

LG
Michael

Beliebteste Forumthreads (12 Monate)

autom. E-Mails senden, wenn Werte überschritten

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

autom. E-Mails senden, wenn Werte überschritten

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread