HOLA DISCULPEN PERO NO SOY MUY BUENO EN ESTO POR FAVOR SI ME PODRIAN AYUDAR A RESOLVER MI FORMULARIO NO ENVIA ESTA ALOJADO EN SERVIDOR WINDOWS ME DICE EL ADMINISTRADOR QUE TENGO Q Estimado Usuario: Quita la autenticacion del codigo, dejala en "" y como host utiliza localhost en lugar de mail.dominio.
EL FORMULARIO QUE HIECE ES ESTE
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<html>
<head >
<title>Página ASP de prueba para enviar mensajes</title>
</head>
<body>
<%
dim mail,mensaje
'set mail=server.CreateObject("Persits.Message")
set mail=server.CreateObject("CDO.Message")
mail.From = "[email protected]"
mail.to = "[email protected]"
'mail.AddAddress "[email protected]"
'mail.Host = "200.58.120.56"
mail.Subject = Request.Form("Nombre")
'mail.IsHTML = True
mensaje="Envio de Correo desde la Web "& "<br />"
mensaje=mensaje & "Categoria : " & Request.Form("Categoria") & "<br />"
mensaje=mensaje & "Nombre : " & Request.Form("Nombre") & "<br />"
mensaje=mensaje & "Telefono : " & Request.Form("Telefono") & "<br />"
mensaje=mensaje & "Correo : " & Request.Form("Correo") & "<br />"
mensaje=mensaje & "Ciudad : " & Request.Form("Ciudad") & "<br />"
mensaje=mensaje & "Mensaje : " & Request.Form("Mensaje")
mail.HTMLBody = mensaje
'mail.Body = mensaje
'mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "http://127.0.0.1"
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
iConf.Fields.Update
mail.Send()
set mail=nothing
%>
<p>
<script language="javascript" type="text/javascript">
alert("Mensaje Enviado Correctamente....");
location.href="contacto.html";
</script>
</body>
</html>
MIL GRACIAS POR LA RESPUESTA
FRANK
