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 p>
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