Visual Basic - AYUDA NECESITO HELPP

Necesito ayuda para crear en Visual Basic una aplicación que me envíe un e-mail, automáticamente.
Lo he intentado con el siguiente código:

Public Function send_mail(sendto As String, subject As String, _

text As String) As Boolean



On Error GoTo ErrHandler

With MAPISession1

.DownLoadMail = False

.LogonUI = True

.SignOn

.NewSession = True

MAPIMessages1.SessionID = .SessionID

End With

With MAPIMessages1

.Compose

.RecipAddress = sendto

.AddressResolveUI = True

.ResolveName

.MsgSubject = subject

.MsgNoteText = text

.Send False

End With

sendmail = True

ErrHandler:

End Function

Private Sub Form_Load()
Dim a
a = send_mail()

End Sub

pero me da error 424 en la línea que dice: With MAPIMessages1

y ahí me quedo, si alguien sabe como hacerlo funcionar o, bien conoce una aplicación que funcione, me haría un gran favor.

Gracias,

Queres que te mande un form que funciona?????