Visual Basic - envio de correo electronico automatico

espero esten bien compañeros de la web del programador, escribo por el echo o la nesecidad deconseguir un programa que envie un correo electronico automaticamente si tener que abrir el outlook para que el usuario remita el mensage, favor espero su compresion del problema ayuda...

ojo no es la primera ves que hago esta pregunta en este foro

hermano te dejo el URL de donde lo puedes descargar...

www.reavi.net/reavi/mail.zip

Esto me Funciona en VB6, he quitado parte del codigo, pero dejo lo fundamental, ya pondras los parametros como mejor te convenga
Asunto, Fichero y Cuerpo son Variables.

' </> ------------------------------------------------------------------- </>
' </> ---&--- Envio en si mismo ---&--- </>
' </> ------------------------------------------------------------------- </>

Function EnvioMail( ... )

Dim Correo As Object

On Error GoTo Error

' </> ---&--- </> Envi del Correo

Set Correo = CreateObject("CDO.Message")

Correo.From = "[email protected]"
Correo.To = "[email protected]"
Correo.BCC = "[email protected]"
Correo.Subject = Asunto
Correo.AddAttachment Fichero
Correo.TextBody = Cuerpo
Correo.Send
Set Correo = Nothing

Exit Function

Error:
MsgBox "Error en el envio del Correo"
End Function