Asp jmail envía el código fuente del correo electrónico.

Primero, se descargó el siguiente componente del servidor jmail como código fuente para que jmail envíe correos electrónicos

MailFromName= "Customer"

SmtpFlag="0 "

MailSubject= "Consultoría de diseño"

Destinatario del correo electrónico

Asunto Asunto

Cuerpo del correo electrónico Contenido del mensaje

Nombre de usuario Correo electrónico del remitente Nombre de usuario.

Contraseña Contraseña de correo electrónico del remitente.

Dirección de correo electrónico del remitente

Desde el servidor de correo SMTP del remitente

Destinatario de correo secreto BCC

Super Enviar un correo electrónico CC al destinatario

AppendMessages adjunta el texto del correo electrónico.

Llamar a sendmail (correo electrónico, asunto, cuerpo del correo electrónico, nombre de usuario, contraseña, desde correo, desde SMTP, correo secreto, caosgmail, agregar mensajes).

1 regresó exitosamente.

E_Server = "smtp.163.com " ' 'Servidor de envío.

e _ server user = " xxxx @ 163 . com " ' 'Nombre de usuario de inicio de sesión.

E_ServerPass = "xxxxx " ' 'Contraseña de inicio de sesión

E_sendman mail = " XXX @ 163.com "'Dirección de correo electrónico del remitente' E_SendManName = "Administrador del sistema" 'Nombre del remitente.

Función SendMail()

Dim Jmail

establecer Jmail = servidor createobject("Jmail.Message")

Jmail. Charset = "GB2312 " 'Enviar código

Jmail. ContentTransferEncoding = " base64 "

Jmail. Codificación = "base64 "

Jmail. Espere codificación header = false

jmail. ContentType="html/text" jmail. ISOEncodeHeaders ="False "

Jmail. Silencioso=Verdadero

Jmail. Prioridad = 3 'Correo normal

Jmail. MailServerUserName = "Mi propia cuenta de correo electrónico"'El nombre de usuario de correo electrónico debe modificarse según la situación real.

Jmail. MailServerPassword = "contraseña " 'La contraseña del correo electrónico debe modificarse según la situación real.

Jmail. De = "Cuenta"

Jmail. Asunto="Asunto"

Jmail. AddRecipient("Cuenta")

JMail. Adjuntar mensaje HTML

JMail. Body=mailcontent

jmail . addcustomattachment server . mappath("../fdcpx/images/1.gif)), " image/gif " 'Agregar membrete definido por el usuario. JMail. AddRecipientBCC(" AddRecipientCC( "correo electrónico del destinatario")'Destinatario CCO

JMail. Appendbodyfromfile "c: \ \ ss.rar " 'Agrega el archivo como cuerpo de la carta.

jmail. agregue el servidor adjunto . mappath(formPath & amp; nuevo nombre)

Si appendMessages=" " o es nulo (appendMessages), entonces

Otro

JMail. AppendText("Agregar el cuerpo de la carta, como agregar un saludo u otra información")'Agregar el cuerpo de la carta, como agregar un saludo u otra información.

Terminará si...

jmail . send(" SMTP . 163 . com ")' el servidor SMTP necesita modificarse de acuerdo con la situación real.

Establecer Jmail = Ninguno

SendMail=1

Finalizar función

SendMail % & gt