Cómo enviar el contenido de Texto1 y Texto2 a wwwwwwwwww5555555555@163.com usando VB

Llama a inet control

O

Puedes usar Jmail

Si necesitas el archivo Jmail.dll, dime tu dirección de correo electrónico y te lo enviaré

Primero debes registrar el componente. Si Jmail.dll está en c:\jmail.dll

, ingresa regsvr32 /s c:\jmail. .dll

También puedes ejecutarlo directamente. Usa VB para registrar el código:

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

Luego puedes Úselo para enviar correos electrónicos Código:

Sub SendMail( Opcional ByVal sSubject As String, _

Opcional ByVal sBody As String, _

Opcional ByVal sFileName As. String)

Atenuar jmail

Establecer jmail = CreateObject("jmail.Message")

jmail.Charset = "gb2312"

jmail.Silent = False

jmail.Priority = 1 ' Estado del correo electrónico, 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" 'Enviando correo electrónico dirección

jmail.Subject = Text1.text 'Text1 Crear título

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

jmail.Body = text2.text 'text2 crea contenido

jmail. Enviar ("smtp.126.com") 'servidor SMTP, como smtp.sohu.com

Establecer jmail = Nada

Fin Sub

Subcomando privado1_Click ()

Enviar correo

MsgBox "Correo enviado correctamente"

Fin Sub