Thema Datum  Von Nutzer Rating
Antwort
Rot Mailversand wenn wert überschritten
04.10.2019 06:58:26 Peter
NotSolved
04.10.2019 09:08:21 Torsten
NotSolved
04.10.2019 09:22:43 Peter
NotSolved
04.10.2019 09:29:45 Torsten
NotSolved
04.10.2019 09:53:15 Peter
NotSolved
04.10.2019 11:27:03 Torsten
NotSolved
04.10.2019 11:57:49 Torsten
NotSolved
04.10.2019 12:26:47 Peter
NotSolved
04.10.2019 12:42:25 Torsten
NotSolved
04.10.2019 13:05:33 Peter
NotSolved
04.10.2019 13:07:30 Torsten
NotSolved
04.10.2019 12:57:16 Torsten
NotSolved
04.10.2019 13:11:10 Peter
NotSolved
04.10.2019 13:13:41 Torsten
NotSolved
04.10.2019 13:15:28 Peter
NotSolved
04.10.2019 13:19:10 Peter
NotSolved
04.10.2019 13:21:46 Torsten
NotSolved
04.10.2019 13:25:48 Peter
Solved

Ansicht des Beitrags:
Von:
Peter
Datum:
04.10.2019 06:58:26
Views:
50
Rating: Antwort:
  Ja
Thema:
Mailversand wenn wert überschritten
Guten Tag zusammen. Und wieder einmal brauche ich eure Hilfe. Im folgenden Script wird bei Überschreitung von >100 in Zelle A1 ein Mail versendet dessen Adresse in Zelle G1 steht. Was muss ich noch einstellen, wenn ich noch weitere Zellen mit einbauen möchte? Z.B. Wenn der Wert in Zelle A2 >100 ist, ein Mail aus der Mailadresse aus Zelle G2 und wenn A3 >100 ist Mail aus der Mailadresse Zelle G3 usw. Tabelle1 Option Explicit Private Sub Worksheet_Calculate() If Range("A1") > 100 Then Call SendMessage End Sub Modul Option Explicit Sub SendMessage() Dim oOL As Object Dim oOLMsg As Object Dim oOLRecip As Object Set oOL = CreateObject("Outlook.Application") Set oOLMsg = oOL.CreateItem(0) With oOLMsg Set oOLRecip = .Recipients.Add(Range("G1").Value) .Subject = "Vertrag läuft in 6 Monate aus!" .Body = "Kunde: " & ActiveSheet.Range("D1") .Importance = 0 .Send End With oOLRecip.Resolve Set oOLMsg = Nothing Set oOLRecip = Nothing Set oOL = Nothing End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Mailversand wenn wert überschritten
04.10.2019 06:58:26 Peter
NotSolved
04.10.2019 09:08:21 Torsten
NotSolved
04.10.2019 09:22:43 Peter
NotSolved
04.10.2019 09:29:45 Torsten
NotSolved
04.10.2019 09:53:15 Peter
NotSolved
04.10.2019 11:27:03 Torsten
NotSolved
04.10.2019 11:57:49 Torsten
NotSolved
04.10.2019 12:26:47 Peter
NotSolved
04.10.2019 12:42:25 Torsten
NotSolved
04.10.2019 13:05:33 Peter
NotSolved
04.10.2019 13:07:30 Torsten
NotSolved
04.10.2019 12:57:16 Torsten
NotSolved
04.10.2019 13:11:10 Peter
NotSolved
04.10.2019 13:13:41 Torsten
NotSolved
04.10.2019 13:15:28 Peter
NotSolved
04.10.2019 13:19:10 Peter
NotSolved
04.10.2019 13:21:46 Torsten
NotSolved
04.10.2019 13:25:48 Peter
Solved