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