Vb enviar código fuente de correo electrónico
. Extensión de archivo Portable Document Format (abreviatura de formato de documento portátil)
Mira estos elementos:
Mensaje POP3, mensaje, ATTS, ATT
Proceso:<. /p>
1. Primero, use el objeto POP3 para conectarse al servicio de correo (por supuesto, debe activar la configuración POP en el buzón) para recibir mensajes.
2. Después de recibir el mensaje, vaya al objeto del mensaje.
3. Analizar el mensaje para obtener el título, el contenido, el remitente y los destinatarios.
4. Si hay un archivo adjunto, el objeto ATTS debe rotarse y analizarse (ya sea almacenando el archivo adjunto localmente o escribiendo un enlace).
"Mensaje" es una colección de cartas.
El mensaje es una carta.
ATTS es un conjunto de archivos adjuntos.
ATT es un único accesorio.
———————————————————————————
Línea divisoria del transmisor
— ————————————————————————
Cambié la respuesta de alguien. Casi nunca he usado VB, solo conozco VB. Net
Primero registre la DLL
Luego el código VB es el siguiente:
Subcomando privado 1_Click()
Enviar correo "título" , "text" ”
Conector final
Sub SendMail (ByVal sSubject As String opcional,_
ByVal sBody opcional como cadena)
Dim jmail
Establecer jmail = CreateObject("jmail.Message")
jmail. Conjunto de caracteres = "gb2312 "
jmail. silencio=false
Jmail. Prioridad = 1 'Estado del correo, 1-5 1 es el más alto.
Jmail. mailserverusername = "XXX " 'Cuenta de correo electrónico
Jmail.mailserverpassword = "XXX " 'Contraseña de correo electrónico
Jmail. FromName = "XXX " 'Nombre del remitente
Jmail. From = "XXX@XXX. Dirección de correo electrónico de XXXX
Jmail. Asunto
jmail . agregar destinatario " XXX @ xxxx " 'La dirección del destinatario.
Jmail.body = sBody 'Texto de carta
jmail . send(" SMTP . 163 . com ")' Servidor SMTP, como smtp.sohu.com
Configuración jmail=none.
Conectores finales
Se recomienda que todos FromName y FROM utilicen direcciones de correo electrónico; de lo contrario, no se aceptarán algunos buzones de correo.