sending a scheduled email in Oulook XP using VBA

[jarvis01]

Guys Please can you help, im trying to send an automatic email message using VBA - in debug mode the step through works ok, but the timer function i have written does not seem to be called - have i done something wrong?? Here is the code i've written

Thanks

jarvis

Option Explicit

Dim nextTimeCheck As Date


Sub Autpen()
Check_Time
On Error Resume Next
End Sub

Sub Check_Time()
On Error Resume Next
If TimeValue(Now()) = TimeValue(&quot;15:11:00&quot And TimeValue(Now()) < TimeValue(&quot;15:12:00&quot Then

ThisOutlookSession.Email

End If

nextTimeCheck = Now + TimeValue(&quot;00:00:30&quot
Application.OnTime EarliestTime:=nextTimeCheck, Procedure:=&quot;Check_Time&quot;
Autpen
End Sub