Enviar correo electrónico con vb

Puedes usar Jmail

Necesitas el archivo Jmail.dll Dime tu dirección de correo electrónico y te lo enviaré

Necesitas registrarlo. componente primero Si Jmail.dll está en c:\jmail .dll

Luego ingrese regsvr32 /s c:\jmail.dll

También puede usar VB directamente para registrar el código:

shell "regsvr32 /s c: \jmail.dll"

Luego puedes usarlo para enviar correos electrónicos Código:

Sub SendMail(Optional ByVal sSubject As. Cadena, _

ByVal sBody opcional como cadena, _

ByVal sFileName opcional como cadena)

Dim jmail

Establecer jmail = CreateObject ("jmail.Message")

jmail.Charset = "gb2312"

jmail.Silent = False

jmail.Priority = 1 'Estado del correo, 1 -5, 1 es el más alto

jmail.MailServerUserName = "12345" 'Cuenta de correo electrónico

jmail.MailServerPassWord = "123456789" 'Contraseña de correo electrónico

jmail. FromName = "Mail" 'Nombre del remitente

jmail.From = "12345@126.com" 'Dirección de correo electrónico de envío

jmail.Subject = Text1.text 'Texto1 como título

jmail.AddRecipient "zzzzz@vvvvv.com " 'Dirección del destinatario

jmail.Body = text2.text 'contenido de texto2

jmail.Send ("smtp.126 .com") 'Servidor SMTP, como smtp.sohu .com

Establecer jmail = Nothing

End Sub

Private Sub Command1_Click()

SendMail

MsgBox "E-mail enviado correctamente"

End Sub

Según mi prueba, algunos buzones cometerán errores al configurar el envío buzón. Se recomienda probar con varios buzones