Zeitspanne Datum VBA
26.05.2023 13:32:32
Markus
Guten Tag,
Unten seht Ihr mein Coding bezüglich automatischer E-Mail Versand. In Tabelle1 in der Zeile D ist ein Datum ersichtlich. Ich würde gerne beim Coding hinzufügen, dass nur die automatischen E-Mail für Positionen in einem Gewissen Zeitraum erstellt werden. In der Zeile T8 ist das Startdatum und im U8 das End datum.
Ein Beispiel:
Ich habe in der Zelle D3 das Datum 20.05.2023 und D4 26.05.2023. In der Zelle T8 (Startdatum) ist der 17.05.2023 eingetragen und im U8 (Enddatum) der 25.05.2023.
Somit sollte die nur die Zelle von D3 versendet werden, da es in diesem Zeitraum ist.
Könnte mir jemand das Coding unten so anpassen.
Vielen Dank euch im Voraus.
Sub Offene_Zahlung()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim count, i As Integer
count = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlDown)))
i = 1
Do While i = count
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.Createitem(0)
strbody = "" & _
"
Mustertext" & _
On Error Resume Next
With OutMail
.to = "Muster"
.CC = ""
.BCC = ""
.Subject = "Muster"
.Display
.HTMLBody = ""
strbody _
& .HTMLBody
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
i = i + 1
Loop
End Sub