Mostrar Mensajes
1
Visual Basic / [APORTE] Enviar e-mails con VB6
« en: 27 de Mayo de 2010, 17:57:31 pm »
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:
También hace falta poner estos codes:
Que dicen si ha habido un error o si el mensaje se ha enviado correctamente.
Y por último poner este codigo:
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í
Tenemos una index del Form con un solo CommandButton, como muestra la imagen:
En el código del CommandButton1 tenéis que poner:
Código: [Seleccionar]
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 SubTambién hace falta poner estos codes:
Código: [Seleccionar]
Private Sub oMail_EnvioCompleto()
MsgBox "Mensaje enviado", vbInformation
End SubCódigo: [Seleccionar]
Private Sub oMail_Error(Descripcion As String, Numero As Variant)
MsgBox Descripcion, vbCritical, Numero
End SubQue dicen si ha habido un error o si el mensaje se ha enviado correctamente.
Y por último poner este codigo:
Código: [Seleccionar]
Option Explicit
Private WithEvents oMail As clsCDOmailYa 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í
