Visual Basic - Ayuda !!! No puedo mandar mails desde Visual

Hola amigos !!!!!

Tengo el siguiente codigo en BV6

MAPISession1.UserName = "Outlook"
MAPISession1.NewSession = True
MAPISession1.DownLoadMail = True ' para recibir
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.MsgIndex = -1 ' nuevo mensaje
MAPIMessages1.RecipIndex = i
MAPIMessages1.RecipType = 1
MAPIMessages1.RecipAddress = "[email protected]"
MAPIMessages1.RecipDisplayName = "[email protected]"
MAPIMessages1.AddressResolveUI = False
MAPIMessages1.ResolveName 'comprueba la existencia de la direccion
MAPIMessages1.MsgSubject = "Asunto del mensaje"
MAPIMessages1.MsgNoteText = "bla bla bla"
MAPIMessages1.Send
MAPISession1.SignOff

Tengo instalado en mi maquina el Outlook Express, y cuando lo ejecuto
no manda ningun mail.
Cual sera el problema ??????

un Abrazo
Marcelo