AW: Statusmail bei Änderung
18.09.2018 21:10:46
Tim
So war das nicht gemeint, ich bin sehr an einer eigenen Lösung interessiert! War nicht meine Absicht andere die arbeit machen zu lassen. Ich habe bereits in der Vergangenheit ein gefundenes Makro ins Forum gestellt, welches ich mit meinem Wissen anpassen konnte, jedoch erfüllt es nicht das Kriterium, nur eine Mail beim schließen zu versenden, sondern sendet es zu jedem neuen Eintrag eine Mail. Darauf habe ich keine leider Antwort erhalten.
Sub SendInfoMailfunktioniert()
Dim olApp As Object
Dim objMail As Object
Dim iCnt%
'Outlook-Anwendungsobjekt setzen
Set olApp = CreateObject("Outlook.Application")
'Schleife bis zur letzten gefuellten Zelle der Spalte H
For iCnt = 2 To Sheets("Tabelle1").Cells(Rows.Count, 10).End(xlUp).Row
If Sheets("Tabelle1").Cells(iCnt, 10).Value = "erledigt" Then
'email-Objekt setzen
Set objMail = olApp.CreateItem(0)
'mit dem email
With objMail
'an
.To = "Test@test.de"
'Betreff
.Subject = "Anfrage wurde aktualisiert" & " " & Date & " " & Time
'Textkoerper
.Body = "Hallo zusammen," & Chr(13) & _
"wir haben eure Anfragen geprüft, bitte schaut nach dem akutellen Stand." & Chr(13) & _
"Mit freundlichen Grüßen"
'email anzeigen
.Display
'Ende mit dem email
End With
'email-Objekt zuruecksetzen
Set objMail = Nothing
'Ende Wenn Ergebnis in Spalte J erldedigt ist, dann
End If
'Ende Schleife bis zur letzten gefuellten Zelle der Spalte J
Next
'Outlook-Objekt zuruecksetzen
Set olApp = Nothing
End Sub