automatisch e-mail versturen vanuit excel

[Jeof1980]

ik ben bezig met een excel sheet te maken welke automatisch een e-mail vanuit outlook verstuurt indien een datum verstrijkt en 7 dagen voor dat de datum verstrijkt.Tevens moet dan het e-mail adres uit de rij gehaald worden waarin de datum verstrijkt.

onderstaande heb ik in de VBA ingevoerd, wellicht dat iemand van jullie mij hier mee verder kan helpen??

Sub Sendmail()

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
sTo = ActiveSheet.Range("E14") ( in kolom E staan de email adressen )
sCC = ""
sBCC = ""
sSubject = "Overschrijding termijn"
strbody = "Geachte Casemanager," & vbNewLine & vbNewLine & _
"Er is een termijn overschrijding bij navolgende opdracht:"

With OutMail
.To = sTo
.CC = sCC
.BCC = sBCC
.Subject = sSubject
.Body = strbody & vbCrLf & vbCrLf & ActiveSheet.Range("A14").Text & vbCrLf & ActiveSheet.Range("b14").Text
.display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub