Script email Versand anpassen

Hallo zusammen,
wie kann man hier eigentlich auf eine Antwort antworten? Wenn ich in einem Thread bin, sehe ich nirgends eine Funktion in diese Richtung, sondern nur oben in der Navi "Beitrag schreiben".
Wie auch immer. Ich habe folgendes Script, dass Werte in zwei Spalten vergleicht und bei vorhandenem, unterschiedlichen Wert eine Mail rausschickt. Klappt auch soweit ganz gut.
Wie kann ich dieses Script anpassen, dass es:
a) Die mail sofort rausschickt wenn ich die Änderung eingegeben habe.
b) Nicht die Werte von zwei Spalten (L und M) vergleicht, sondern einfach nur schaut, ob sich das RelDate in Spalte M geändert hat.
Bitte macht es einfach bin ziemlich nur in der ganzen Materie und hier laufen echt ein paar richtige Cracks rum.
Vielen Dank für eure Hilfe!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SendMail() Dim OutApp As Object Dim OutMail As Object Dim RelDate As Range Dim lastRow As Long Dim dateCell, dateCell1 As Date Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon lastRow = Range("A" & Rows.Count).End(xlUp).Row On Error GoTo cleanup For Each RelDate In Range("M2:M" & lastRow) If RelDate = "" Then GoTo 1 dateCell = RelDate.Value dateCell1 = Cells(RelDate.Row, "L").Value If dateCell dateCell1 Then Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = Cells(RelDate.Row, "K").Value .Subject = "Release Date Changed" .Body = "Hallo " & Cells(RelDate.Row, "A").Value _ & vbNewLine & vbNewLine & _ "Das Datum von " & Cells(RelDate.Row, "H").Value & _ " wurde zu " & dateCell & " geändert" _ & vbNewLine & vbNewLine _ & vbNewLine & vbNewLine & _ "Gruß," & vbNewLine & _ "Sandra" .send End With On Error GoTo 0 Set OutMail = Nothing End If Cells(RelDate.Row, "L").Value = dateCell RelDate.ClearContents 1: Next RelDate cleanup: Set OutApp = Nothing Application.ScreenUpdating = True End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim OutApp As Object Dim OutMail As Object If Target.Column = 13 And Target.Row > 1 And Target.Count = 1 Then If Target "" Then On Error Resume Next Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon With OutApp.CreateItem(0) .Subject = "Release Date Changed" .Body = "Hallo " & Target.Offset(0, 12).Value _ & vbNewLine & vbNewLine & _ "Das Datum von " & Target.Offset(0, -5).Value & _ " wurde zu " & Target.Value & " geändert" _ & vbNewLine & vbNewLine _ & vbNewLine & vbNewLine & _ "Gruß," & vbNewLine & _ "Sandra" .Send End With On Error GoTo 0 Set OutApp = Nothing End If End If End Sub

Hallo Uli,
Zitat: Habe ein Kassenmodul angelegt und deinen Code eingefügt.
Was ist ein Kassenmodul? Du brauchst nicht abzurechnen ;-)
Mein Vorschlag: Tabellenblatt im VBE-Editor doppelklicken: öffnet automatisch das Klassenmodul d das Blatts!
Zweitens bin ich davon ausgegangen, dass dein existierender Code funktioniert und am Blattaufbau nichts verändert wurde. Wenn nun plötzlich alles in andere Spalten ist, dann passe meinen Code so an, das es wieder passt. D.h. die Zahlen im Code bezogen sich auf:
Veränderung in : 13 = Spalte M
Name ?: .Offset(0, 12) war ein Tippfehler, müsste heissen .Offset(0, -12),
d.h. Spalte 13-12 = Spalte A
Alter Wert? : .Offset(0, -5) = Spalte H
Also etwa so:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim OutApp As Object
Dim OutMail As Object
If Target.Column = 1 And Target.Row > 1 And Target.Count = 1 Then
If Target  "" Then
On Error Resume Next
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
With OutApp.CreateItem(0)
.To = Target.Offset(0, 3)
.Subject = Target.Offset(0, 1)
.Body = "Hallo " & Target.Offset(0, 2).Value _
& vbNewLine & vbNewLine & _
"Das Datum von " & Target.Value & _
" hat sich geändert! " _
& vbNewLine & vbNewLine & _
"Gruß," & vbNewLine & _
"Uli"
.Send
End With
On Error GoTo 0
Set OutApp = Nothing
End If
End If
End Sub

Gruess Hansueli

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread