Use o componente EasyMailObject para processar o Código Fonte de Correio do Exchange no ASP-Send Mail (p_sendmail.asp)
< %@ Idioma = vbscript %>
<%
'********************************************
'Este arquivo é usado para enviar e -mails
Autor: Awayeah
'E -mail: [email protected]
'********************************************
Se sessão ("straccount") = "" ou sessão ("strpassword") = "" então
Resposta.END
final se
%>
<html>
<head>
<Meta name = "generator" content = "Microsoft Visual Studio 6.0">
</head>
<Estilo>
<!-
A {Decoração de texto: Nenhum}
->
</Style>
<Body>
<%Set smtp = createObject ("easymail.smtp.5")
Smtp.licenseKey = "AWA/S19I500R1AX30C0R3100"
Smtp.mailserver = "192.9.200.89"
Smtp.subject = request.form ("sujeito")
Smtp.BodyText = request.form ("BodyText")
Smtp.from = request.form ("de")
Smtp.fromaddr = request.form ("FromAddr")
Smtp.addrecipient request.form ("de"), request.form ("receba1"), 1
'Adicione o anexo
se request.form ("att") = "" então
Response.Write ""
outro
x = smtp.addattachment (request.form ("att"), 0)
Se não x = 0 então
Response.Write "Insira o erro de anexo:" + cstr (x) + "Entre em contato com o administrador".
Final se
final se
x = smtp.send
Se x = 0 então
'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 = 'background-color: # 000080 '> O email foi enviado com sucesso! </font> </span> </b> "
'Sessão ("Enviado") = "y"
Outro
Se x = 7 ou x = 5 então
Response.Write "<br> <br> <p align = 'Center'> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'background-color: # 000080 '> Ocorreu um erro ao enviar um email (" + cstr (x) +").
<br> <br> <input type = "button" value = "back">
<%Response.end
outro
Response.Write "<br> <br> <p align = 'Center'> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'background-color: # 000080 '> ocorreu um erro ao enviar um email: "+ cstr (x)+" </span> </font> </b> "%>
<br> <br> <input type = "button" value = "return Id = button1 name = button1>
<%Response.end
final se
Final se
Definir smtp = nada
%>
<P align = "Center"> <a href = "javascript: window.close ();">
<font face = "宋体" size = "5"> <b> <span style = "background-color: #ffff00"> return </span> </b> </font> </a> </p>
</Body>
</html>