Enviar correo electrónico con vb

Puedes utilizar Jmail

Necesitas el archivo Jmail.dll Dime tu email y te lo enviaré

Necesitas registrar el 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:<. /p>

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

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

Sub SendMail(Optional ByVal sSubject As String. , _

ByVal sBody opcional como cadena, _

ByVal sFileName opcional como cadena)

Atenuar 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 = "Correo" 'Nombre del remitente

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

jmail.Subject = Texto1.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 "Correo electrónico enviado correctamente"

End Sub

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