Hoy estoy desarrollando mensajes de usuario. Una copia se almacena en la base de datos y la otra copia debe enviarse a un buzón específico. No sé si el servidor lo admite, si lo admite, se enviará la información del mensaje. al correo electrónico. Primero, debe haber una declaración Sobre error Reanudar siguiente
Luego intente reanudar el ejemplo de jmail:
JMail tenue
Establecer JMail=Server.CreateObject(JMail.Message)
Haga un juicio sobre la instancia. Si el componente no se instala correctamente, no se crea ninguna instancia:
Si JMail no es nada entonces
Response.Write no es compatible
Demás
Respuesta. Soporte de escritura
Terminar si
Los demás componentes se procesan de la misma forma, lo cual es muy sencillo.
Es mejor manejarlo en el archivo global, para que no tenga que preocuparse al usarlo.
La mejor manera es poner la generación del correo electrónico en una tabla y luego hablar sobre enviarlo.
Copie el código de código de la siguiente manera:
Función IsObjInstalled(strClassString)
En caso de error Continuar siguiente
IsObjInstalled = Falso
Error = 0
DimxTestObj
Establecer xTestObj = Server.CreateObject(strClassString)
Si 0 = Err, entonces IsObjInstalled = Verdadero
Establecer xTestObj = Nada
Error = 0
Función final
Código de sentencia:
si IsObjInstalled(JMail.Message)=True entonces{
si IsObjInstalled(JMail.Message) =True entonces
SendStat = Jmail(***@vevb.com, mensaje del cliente desde Internet, <html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>Mensaje de usuario del sitio web</title></head><body>Persona del mensaje: &txtname&<br>Género: &xingbie&<br>Sitio web de consultoría: &txtweb&<br>Información de contacto: &txttel&<br>Contenido del mensaje :&cont. ent&<br>Dirección IP:&ipaddress&<br>Hora del mensaje:&now()&<br><br>Este correo electrónico es enviado automáticamente por el sistema, no se requiere respuesta<!--Script Home www.vevb.com-- ><br ><br></body></html>,GB2312,text/html)
terminar si
}
función de envío de jmail
Copie el código de código de la siguiente manera:
' ===============================================
' jmail envía correo electrónico
' ===============================================
Función Jmail(mailTo,mailTopic,mailBody,mailCharset,mailContentType)
'Parámetros de entrada:
' mailTo dirección de correo electrónico del destinatario
'mailTopic tema de correo
' mailBody cuerpo del correo electrónico (contenido)
' conjunto de caracteres de correo mailCharset, como GB2312 o US-ASCII
' mailContentType formato del cuerpo del correo electrónico, como texto/plain o texto/html
'Valor de retorno:
' Cadena, se devolverá OK después de una transmisión exitosa, se devolverá un mensaje de error si no se logra.
'Uso:
' 1) Establecer la constante, es decir, la variable que comienza con Const
'2) Utilice un código similar al siguiente para enviar un mensaje
'Estad de envío tenue
'SendStat = Jmail([email protected], prueba Jmail, ¡esta es una carta de prueba!, GB2312, texto/html)
'Respuesta.Escribir SendStat
'******************Establezca las constantes necesarias para comenzar******************
Dim ConstFromNameCn,ConstFromNameEn,ConstFrom,ConstMailDomain,ConstMailServerUserName,ConstMailServerPassword
ConstFromNameCn = nombre chino del remitente de Lottery Network (usado al enviar correos electrónicos chinos), como 'Zhang San'
ConstFromNameEn = bc5'El nombre en inglés del remitente (usado al enviar correos electrónicos en inglés), como 'zhangsan'
ConstFrom = [email protected]' dirección de correo electrónico del remitente, como '[email protected]'
ConstMailDomain = dirección del servidor mtp de smtp.163.com, como smtp.163.com
ConstMailServerUserName = nombre de inicio de sesión del buzón del servidor mtp de [email protected], como 'zhangsan'. ¡Asegúrese de coincidir con la dirección de correo electrónico del remitente!
ConstMailServerPassword = contraseña de inicio de sesión del buzón del servidor mtp de www.vevb.com
'******************Establece constantes según sea necesario para finalizar****************
'--------------------------------No es necesario cambiar el siguiente contenido-------- -------- ---------------
En caso de error Continuar siguiente
Atenuar mi Jmail
Establecer miJmail = Server.CreateObject(JMail.Message)
myJmail.Logging = Registro falso
myJmail.ISOEncodeHeaders = False'Los encabezados de correo no usan codificación ISO-8859-1
myJmail.ContentTransferEncoding = base64'La codificación de correo está configurada en base64
myJmail.AddHeader Prioridad,3'Agregar encabezado de correo, ¡no lo cambie!
myJmail.AddHeader MSMail-Priority,Normal'Agregue el encabezado del correo, ¡no lo cambie!
myJmail.AddHeader Mailer, Microsoft Outlook Express 6.00.2800.1437 'Agregue encabezado de correo, ¡no lo cambie!
myJmail.AddHeader MimeOLE, producido por Microsoft MimeOLE V6.00.2800.1441 'Agregue encabezado de correo, ¡no lo cambie!
myJmail.Charset = conjunto de caracteres de correo
myJmail.ContentType = tipo de contenido de correo
Si UCase(mailCharset) = GB2312 Entonces
myJmail.FromName = ConstFromNameCn
Demás
myJmail.FromName = ConstFromNameEn
Terminar si
myJmail.From = ConstFrom
myJmail.Subject = tema de correo
myJmail.Body = cuerpodecorreo
myJmail.AddRecipient mailTo
myJmail.MailDomain = ConstMailDomain
myJmail.MailServerUserName = ConstMailServerUserName
myJmail.MailServerPassword = ConstMailServerPassword
myJmail.Enviar ConstMailDomain
myJmail.Cerrar
Establecer miJmail=nada
Si se equivoca entonces
Jmail=Err.Descripción
Err.Borrar
Demás
Jmail=OK
Terminar si
En caso de error Ir a 0
Función final