envia mail sin contenido!!
Publicado por bernat (9 intervenciones) el 05/02/2005 19:48:40
chicos,chicas!! no entiendo pq pero me envia el mail SIN CONTENIDO!!! a ver si me pueden ayudar. es un archivo asp que envia un mail, ahi el codigo:
<HTML>
<TITLE>EnjoyAviation.com - Respuesta a mensaje de contacto</TITLE>
<BODY>
<%@ LANGUAGE=VBScript %>
<%
if (Request.Form<>"") Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.enjoyaviation.com" ' Specify a valid SMTP server
Mail.From = "[email protected]" ' Specify sender's address
Mail.FromName = "info" ' Specify sender's name
'Mail.AddAddress "[email protected]", "Jordi Pons"
Mail.AddAddress "[email protected]", "Jordi Pons"
Mail.Subject = Request.form("tema")
Mail.Body = request.form("missatge") & Chr(13) & Chr(10)
Mail.Body = Mail.Body & Chr(13) & Chr(10) & "Missatge enviat per: " & Request.form("remitent")
Mail.Body = Mail.Body & Chr(13) & Chr(10) & "e-mail: " & Request.form("contacte")
On Error Resume Next
Mail.Send
If Err <> 0 Then
'La següent línea també es pot treure i fer una pàgina htm normal que digui aquest error en plan més mono.
Response.Write ("Error, missatge no enviat: " & Err.Description)
End If
response.redirect("../cast/resposta.htm")
else
response.redirect("../cast/contacto.asp")
end if
%>
</body>
</html>
Saludos y 1000 gracias!!
bernat
<HTML>
<TITLE>EnjoyAviation.com - Respuesta a mensaje de contacto</TITLE>
<BODY>
<%@ LANGUAGE=VBScript %>
<%
if (Request.Form<>"") Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.enjoyaviation.com" ' Specify a valid SMTP server
Mail.From = "[email protected]" ' Specify sender's address
Mail.FromName = "info" ' Specify sender's name
'Mail.AddAddress "[email protected]", "Jordi Pons"
Mail.AddAddress "[email protected]", "Jordi Pons"
Mail.Subject = Request.form("tema")
Mail.Body = request.form("missatge") & Chr(13) & Chr(10)
Mail.Body = Mail.Body & Chr(13) & Chr(10) & "Missatge enviat per: " & Request.form("remitent")
Mail.Body = Mail.Body & Chr(13) & Chr(10) & "e-mail: " & Request.form("contacte")
On Error Resume Next
Mail.Send
If Err <> 0 Then
'La següent línea també es pot treure i fer una pàgina htm normal que digui aquest error en plan més mono.
Response.Write ("Error, missatge no enviat: " & Err.Description)
End If
response.redirect("../cast/resposta.htm")
else
response.redirect("../cast/contacto.asp")
end if
%>
</body>
</html>
Saludos y 1000 gracias!!
bernat
Valora esta pregunta
0