Ver Mensaje Individual
  #3 (permalink)  
Antiguo 25/01/2007, 22:41
Sugey
 
Fecha de Ingreso: mayo-2006
Mensajes: 215
Antigüedad: 18 años, 11 meses
Puntos: 0
Re: Cambiar de CDONTS a CDO !!!

Hola gracias por tu contestacion, mira el problema es el siguiente, ojala alguien en este foro pueda ayudarme.

Tengo el codigo con CDO, y funcion perfectamente sobre Windows 2000, pero tambien lo implemente en windows 2003 server, y no me funciona, no me manda error, de hecho aparentemente lo envia, pero al revisar en el outlook no me llega nada, a diferencia del codigo que ejecuto en windows 2000 alli si me funciona y si me llega el correo, la verdad no se a que se deba, supuestamente CDO funciona sobre Win 2000, 2003 y XP, asi que si mi codigo funciona en uno tambien deberia funcionar en el otro servidor, ya me cerciore de que estuviera levantado el servicio SMTP en el Win 2003 server(que es donde no me funciona), tambien verifique que no tuviera activo el firewall(por si acaso), el codigo es el siguiente:
<%
sch = "http://schemas.microsoft.com/cdo/configuration/"

Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(sch & "sendusing") = 1 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "euler.iie.org.mx"
.update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = "[email protected]"
.To = "[email protected]"
.Subject = "Sample CDO Message"
.TextBody = "This is a test for CDO.message"
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>

estoy muy confundida ya no se que hacer, porque no me envia el correo? y no hay errores aparentemente, que debo hacer? que me hace falta?

AYUDA POR FAVORRRRR!!!!!!