Automatische Mail bei Datum
05.05.2020 08:57:56
Andi
es tut mir sehr Leid, aber ich muss nochmal eine schon oft beantwortete Frage stellen, weil ich einfach nicht klarkomme den Code an meine Datei anzupassen.
Rahmenbedingungen:
- Meine Tabelle wird jeden Tag manuell geöffnet.
- Die Tabelle soll beim öffnen automatische eine Mail versenden sobald ein Datum überschritten ist.
- Der Empfänger steht immer in Spalte D
- Das Datum des Eintrags steht immer in Spalte E. Ausgehend von diesem Datum soll nach X Tagen (immer der gleiche Wert) die Mail geschickt werden.
- Die Mail soll nur einmal verschickt werden. Das Makro muss also, wie in einer anderen Lösung beschrieben, einen Eintrag in die entprechende Zeile, bei Spalte X machen, sobald die Mail versendet wurde, damit die Mail nicht mehrfach abgeschickt wird.
-Betreff der Mail soll sein: Fristablauf: %Spalte C% läuft in X Tagen ab
- Body soll sein:
Inhalt: %SpalteF%
%SpalteG%
Ich habe unter anderem diesen Code gefunden:
Sub auto_open()
Dim rCell As Range
Dim objApp As Object
Dim objMailItm As Object
Dim tBRng As String
Dim tReceiver As String
tBRng = "A11:A" & Sheets("ToDo").UsedRange.Rows.Count
tReceiver = Sheets("ToDo").Range("B4")
' Set objApp = CreateObject("Outlook.Application")
For Each rCell In Sheets("ToDo").Range(tBRng)
If IsDate(rCell.Offset(0, 5).Value) Then
If rCell.Offset(0, 5) - Date " & vbCrLf & _
"wird am " & rCell.Offset(0, 5).Value & " fällig!"
.Send
End With
rCell.Offset(0, 9).Value = True
Set objMailItm = Nothing
End If
End If
Next
Set objApp = Nothing
End Sub
Quelle: https:\/\/www.herber.de/forum/archiv/876to880/878916_Mail_aus_Excel_heraus_automatisch_versenden.html
Weiß aber nicht wie ich den anpassen kann.
Ich weiß es ist viel erwartet, aber könnte mir jemand erklären wie der Code arbeitet oder was ich tun muss?
Vielen Dank im voraus für die Mühe
Andi