control jmail4.0 en vb

¡Simplemente descargue /BreadWeb/FtpFolder/Bread/w3JMail43Personal.exe e instálelo en el directorio VB!

Busque Jmail.dll en el directorio de instalación de Jmail y copie la ruta, por ejemplo. , el mío está instalado en c:\Jmail.dll (también puedes copiarlo a la unidad c)

Luego ejecuta el comando en el menú inicio

Registrar Jmail: Regsvr32 c: \Jmail .dll

Después del registro, haga referencia a Jmail en el proyecto VB (debería poder encontrarlo)

Luego escriba el código, recuerde reemplazar también la contraseña correcta de su cuenta de correo electrónico

Enviando código de correo electrónico:

Opción explícita

Sub SendMail(Opcional ByVal sSubject como cadena, _

Opcional ByVal sBody como cadena, _

Opcional ByVal sFileName As String)

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 = "fitgore" ' Cuenta de correo electrónico

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

jmail.FromName = "Correo" 'Nombre del remitente

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

jmail.Subject = "Una carta de qq" 'Asunto

jmail.AddRecipient "fitgore@163.com" ' Dirección del destinatario

jmail.Body = sBody 'Texto de la carta

jmail.Send ("smtp.qq.com")

Establecer jmail = Nada

Finalizar sub

Subcomando privado1_Click()

Enviar correo text1.text, text2.text, ""

MsgBox "OK"

End Sub

jmail no admite el buzón qq, puedes cambiarlo a sohu, se puede probar sohu