Este proyecto ahora requiere la entrega de correo electrónico cronometrada usando ASP, y muchas personas dicen que ASP no tiene tal función.
En realidad, lo he explicado en detalle en un artículo anterior, pero esa es una tarea cronometrada, y la idea básica es la misma.
Referencia: Métodos para implementar tareas de tiempo en ASP
Aquí usamos el componente JMail para hacerlo. El contenido del correo electrónico es una sola página web y se puede personalizar libremente.
Echemos un vistazo al código para enviar correo cronometrado:
La copia del código es la siguiente:
Función gethttppage (URL)
dim objxml
Establecer objxml = createObject ("msxml2.serverxmlhttp.3.0") 'Llame al componente XMLHTTP para probar si el espacio admite XMLHTTP
objxml.open "Get", URL, False 'falso significa obtener código web de manera sincrónica, ¿entiende qué es la sincronización? ¿Qué es asíncrono?
objxml.send () 'enviar
gethttppage = bbytestobstr (objxml.ResponseBody) 'devuelve información y usa la función para definir la codificación.
establecer objxml = nada
Función final
Función bbytestobstr (cuerpo)
dim objstream
establecer objstream = createObject ("ADODB.Stream") '// llamando al componente ADODB.Stream
objstream.type = 1
objstream.mode = 3
objstream.
objstream.write cuerpo
objstream.position = 0
objstream.type = 2
objstream.charset = "GB2312"
'Convierta la codificación UTF-8 predeterminada original a la codificación GB2312, de lo contrario obtendrá un código confuso llamando directamente a una página web con caracteres chinos con XMLHTTP.
bbytestobstr = objstream.readText
objstream.close
establecer objstream = nada
función final
Sub SendAction (sujeto, mailaddress, tomaLa, remitente, contenido, chemail, fromer, nombre de usuario, contraseña)
Establecer ojmail = createObject ("jmail.message")
ojmail.logging = falso
ojmail.silent = verdadero
ojmail.priority = 3
ojmail.FromName = fromer
ojmail.From = fromEmail
ojmail.charset = "GB2312"
ojmail.MailServerUsername = nombre de usuario
ojmail.MailServerPassword = contraseña
ojmail.ContentTransferencoding = "Base64"
ojmail.htmlbody = contenido de contenido '
ojmail.body = content '"Nuestros correos electrónicos están en formato HTML, pero su software de visualización de correo electrónico puede no admitirlos"
ojmail.addrecipient tomail 'dirección del destinatario
ojmail.subject = sujeto 'Título
ojmail.send (MailAddress)
Final
Dim Sujem, Mailaddress, Tourel, remitente, FromEmail, fromer, contraseña, ojmail, nombres de usuario, toma