Form_Load Need to loop to next record...

[ddbrook]

This is my code to load my form when I open it.
Which it works fine, but when I have 2 or more emails to send out for that day... Can someone show me how to loop to next record???? Please...

Private Sub Form_Load()
On Error GoTo Err_Form_Load

DoCmd.Maximize
DoCmd.GoToRecord , , acFirst
DoCmd.SendObject , , , Me.Email, [CC], , "Reminder for " & Me.ReportFor & " - Report Ref 00" & Me.ID, Me.ReportBody, Falso

Exit_Form_Load:
Exit Sub

Err_Form_Load:
MsgBox Err.Description
Resume Exit_Form_Load

Thanks for your help again...
ddbrook


End Sub