Hace unas semanas atras pregunte por un codigo de envio de Mail, yo lo habia probado en otros servidores y me funcionaba a la perfeccion pero en este que era de una Intranet se caia y justo en el envio
ObjetoMail.Send
Oroharo 2003 me dijo que preguntara si estaba habilitado el filtro SMTP y la verdad es k estaba deshabilitado...
Mi pregunta es.
Puedo ocupar un componente de envio de mail que funcione con el SMTP deshabilitado...
Los envios estan hechos con Cdonts y este esta instalado en el servidor, que a la vez es Windows 2000..
Dejo aca el codigo del correo, aunque en otros servidores me funciona
<% if request.form <> "" then
dim email, myMail, HTML, nombre, area, tema, texto
nombre = request.form("nombre")
area = request.form("area")
tema = request.form("tema")
texto = request.form("sugerencia")
set myMail = Server.CreateObject("CDONTS.NewMail")
HTML = "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & " content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<title>Email desde la página</title>"
HTML = HTML & "</head>"
HTML = HTML & "<BODY>"
HTML = HTML & "<DIV align=left><FONT face=Verdana, Arial, Helvetica, sans-serif size=2><b>Nombre: </b>"&Request.form("nombre")&"</FONT></DIV><br>"
HTML = HTML & "<DIV align=left><FONT face=Verdana, Arial, Helvetica, sans-serif size=2><b>Area: </b>"&Request.form("area")&"</FONT></DIV><br>"
HTML = HTML & "<DIV align=left><FONT face=Verdana, Arial, Helvetica, sans-serif size=2><b>Tema: </b>"&Request.form("tema")&"</FONT></DIV><br>"
HTML = HTML & "<DIV align=left><FONT face=Verdana, Arial, Helvetica, sans-serif size=2><b>Sugerencia</b></FONT></DIV><br>"
HTML = HTML & "<DIV align=left><FONT face=Verdana, Arial, Helvetica, sans-serif size=2>"&Request.form("sugerencia")&"</FONT></DIV>"
HTML = HTML & "</BODY></HTML>"
Set myMail=Server.CreateObject("CDONTS.NewMail")
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.To = "
[email protected]"
myMail.From = "
[email protected]"
myMail.Subject = "Asunto del correo"
myMail.Body = HTML
myMail.Send ' aca marca el error cuando el SMTP esta deshabilitado
Set myMail = Nothing
Response.Redirect "confirma.htm"
else
response.redirect "buzon.htm"
end if
%>