Use el componente EasyMailObject para procesar el código fuente de correo de intercambio en ASP-Sense Mail (P_SendMail.asp)
< %@ Idioma = vBscript %>
<%
'********************************************
'Este archivo se usa para enviar correos electrónicos
'Autor: awayeah
'Correo electrónico: [email protected]
'********************************************
if session ("straccount") = "" o session ("strpassword") = "" entonces
Respuesta.
final si
%>
<html>
<Evista>
<Meta name = "generador" content = "Microsoft Visual Studio 6.0">
</ablo>
<Estilo>
<!-
A {Decoración de texto: ninguno}
->
</style>
<Body>
<%Set smtp = createObject ("easymail.smtp.5")
Smtp.licensekey = "AWA/S19I500R1AX30C0R3100"
Smtp.mailserver = "192.9.200.89"
Smtp.subject = request.form ("sujeto")
Smtp.bodyText = request.form ("BodyText")
Smtp.from = request.form ("from")
Smtp.fromaddr = request.form ("fromAddr")
Smtp.addrecipient request.form ("from"), request.form ("recibir1"), 1
'Agregar archivos adjuntos
if request.form ("att") = "" entonces
Respuesta. Escribe ""
demás
x = smtp.addattachment (request.form ("att"), 0)
Si no x = 0 entonces
Response.WRITE "Insertar el error de archivo adjunto:" + CSTR (x) + "Póngase en contacto con el administrador".
Final si
final si
x = smtp.send
Si x = 0 entonces
'Response.Write ("<p align = Center> <br> <br>")
'Response.write ("<font size =")
Response.Write "<P align = 'Center'> <br> <br> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'Color de fondo: # 000080 '> el correo electrónico se ha enviado correctamente! </font> </span> </b> "
'Session ("enviado") = "Y"
Demás
Si x = 7 o x = 5 entonces
Response.write "<br> <br> <p align = 'Center'> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'Color de fondo: # 000080 '> Se produjo un error al enviar un correo electrónico (" + cstr (x) +").
<br> <br> <input type = "button" value = "back">
<%Respuesta.
demás
Response.write "<br> <br> <p align = 'Center'> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'Color de fondo: # 000080 '> Se produjo un error al enviar un correo electrónico: "+ cstr (x)+" </span> </font> </b> "%>
<br> <br> <input type = "button" value = "return" id = button1 name = button1>
<%Respuesta.
final si
Final si
Establecer smtp = nada
%>
<P align = "Center"> <a href = "javascript: window.close ();">
<font face = "宋体" size = "5"> <b> <span style = "de fondo de fondo: #ffff00"> return </span> </b> </font> </a> </p>
</body>
</Html>