Hola nuevamente. Ejecute un asp para enviar un correo y todo funciona perfectamente en mi PC (WXP) que es donde primero realizo mis pruebas y al final las subo al server (W2003 Server). Resulta ser que cuando ejecuto este ASP en el server aparentemente envia el email con los parametros que le indico pero los correos nunca llegan a su destino, no me genera ningun error ni nada por el estilo.
Que podría estar pasando?
Revise el firewall de windows y de hecho esta desactivado y no logro recivir los correos. Podría alguien darme alguna pista.
Gracias
Anexo Codigo:
Código HTML:
<%
if (Request.Form()<>"") then
Dim Mail, Config
Set Mail = Server.createObject("CDO.Message")
Set Config = Server.createObject ("CDO.Configuration")
With Config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.servidor.correo.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
Set Mail.Configuration = Config
Mail.From="Sistemas"
Mail.To = Request.Form("email")
Mail.cc = Request.Form("cc")
Mail.Subject = Request.Form("asunto")
Mail.HTMLBody = Request.Form("mensaje")
Mail.Send()
Response.Write("E-mail enviado a: "&Request.Form("email"))
Response.Wire("<BR>Con copia a: "&Request.Form("cc"))
Set Mail = Nothing
else %>
<form name="formail" method="post" action="enviax.asp">
<table align="center" cellpadding="3" cellspacing="1">
<tr><td>Para (Email): </td>
<td><input type="text" name="email" size="40"></td> </tr>
<tr><td>CC:</td>
<td><input type="text" name="cc" size="40"></td></tr>
<tr><td>Asunto: </td>
<td><input type="text" name="asunto" size="40"></td> </tr>
<tr><td>Mensaje: </td>
<td><textarea name="mensaje"></textarea></td> </tr>
<tr><td colspan="2" align="center">
<input type="submit" value=" Enviar " name="ok"> </td> </tr>
</table>
</form>
<% end if %>
:::Salu2:::