e-mail versturen uit excel

[jeroenmulder87]

Hallo,

Ik heb een code gekregen die mijn een automatisch een e-mail te laten versturen uit excel. ik ben hier heel blij mee. omdat de e-mail word verstuurd op een bepaalde datum. de info pakt hij nu ook automatisch want die staat in de zelfde rij.
maar nu werkt deze macro alleen in 1 cel en ik kan hem niet laten herhalen zodat er meerde cellen zijn die gebruik maken van deze code. zou iemand mij hier kunnen vertellen hoe ik deze code moet herhalen?

'Private Sub Workbook_BeforeClose(Cancel As Boolean)
Private Sub Workbook_open()
If DateDiff("d", Now, [A1]) <= 7 Then
With CreateObject("outlook.application").createitem(0)
.to = "stage2@sportservicehaarlemmermeer.nl"
.Subject = [B1]
.body = [A2].Value & " " & [B2].Value & " " & [C2].Value
.send
End With
MsgBox ("De mail is verstuurd")
End If
End Sub

alvast bedankt

 

[robdgr]

Als jij eerst vertelt op basis waarvan die herhaling moet plaatsvinden.