Bueno, este post va dedicado a la enseñanza de enviar correos con Visual Basic, algo que mucha gente pregunta cómo se hace, y que es posible, no sólo con PHP o HTML, y bien sencillo además.

Tenemos una index del Form con un solo CommandButton, como muestra la imagen:


En el código del CommandButton1 tenéis que poner:

Private Sub Command1_Click()
    Set oMail = New clsCDOmail
    With oMail
         
        .servidor = "smtp.gmail.com"
        .puerto = 465
        .UseAuntentificacion = True
        .ssl = True
        .Usuario = "USUARIO"
        .PassWord = "PASSWORD"
       
        .Asunto = "Enviar E-mails con VB6"
        .Adjunto = "RUTA DEL ADJUNTO"
        .de = "USUARIO"
        .para = "DESTINATARIO"
        .Mensaje = "Este es un mensaje de prueba para que veais que el Sistema funciona correctamente."
       
        .Enviar_Backup
   
    End With
   
    Set oMail = Nothing
End Sub
También hace falta poner estos codes:

Private Sub oMail_EnvioCompleto()
    MsgBox "Mensaje enviado", vbInformation
End Sub
Private Sub oMail_Error(Descripcion As String, Numero As Variant)
    MsgBox Descripcion, vbCritical, Numero
End Sub
Que dicen si ha habido un error o si el mensaje se ha enviado correctamente.

Y por último poner este codigo:
Option Explicit

Private WithEvents oMail As clsCDOmail
Ya que este envio de e-mails lo hemos hecho con unos módulos CDO.

Si hemos hecho todo bien saldrá un cartel que dirá "Mensaje enviado",y  nos llegará un mensaje al correo:


Y así podremos enviar e-mails fácilmente.

Tutorial hecho 100% por mí