Cambiar de CDONTS a CDO !!!

Sugey · #1 (**permalink**) 23/01/2007, 13:21

Hola tengo una aplicacion ASP corriendo sobre Windows 2000 , pero ahora van a cambiar la aplicacion a Windows 2003 server, en esta aplicacion se utiliza el objeto:
Set objMail = Server.CreateObject("CDONTS.NewMail")

PERO AHORA ME DICEN QUE AL CAMBIAR LA APLICACION FALLA EL ENVIO DE CORREOS, HE LEIDO UN POCO Y ENTENDI QUE DEBO CAMBIAR EL OBJETO A CDO

Set cdoMessage = CreateObject("CDO.Message")

YA ENCONTRE EL CODIGO, PERO QUISIERA SABER QUE DEBO ESCRIBIR EN LAS SIGUIENTES LINEAS:

Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort (AKI ??)
.Item(cdoSMTPServer) = "<enter_mail.server_here>" (AKI ??)
.Update
End With

IMAGINO ALGO DE EL PUERTO Y EL NOMBRE DEL SERVIDOR????
ADEMAS, DEBO CONFIGUAR ALGUNA DLL O ALGO ASI??

AYUDA PLEASE

JuanRAPerez · #2 (**permalink**) 23/01/2007, 15:37

hay una funcion muy buena en las faq para usar los componentes de envio de correo.

buscala ya esta solo para usarce y solo tendrias qeu cambiar en tus configuraciones un valor numerico para poder seleccionar componentes

suerte

Sugey · #3 (**permalink**) 25/01/2007, 22:41

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!!!!!!

Sugey · #4 (**permalink**) 26/01/2007, 10:52

Por favor contestenme, ya no se que hacer, hace falta ke?
el codigo esta correcto ya lo probe en otra maquina, como configuro o que tengo que hacer, desbloquer puertos, o tal sea el proxy o ke es?
estoy en una intranet ....

ayuda please

JuanRAPerez · #5 (**permalink**) 26/01/2007, 17:40

has verificado el "relay" ?????

checa que los servicios esten ademas de levantados configurados igual en todas las maquias, y que te permita haecr el relay en la maquina del server 2003, al igual que los tipos de autenticacion para el SMTP

suerte

Sugey · #6 (**permalink**) 29/01/2007, 13:15

Hola, la verdad estoy confundida con lo del relay, en autenticacion del SMTP, tengo activada al opcion anonymous access, en relay restricciones, no hay ninguna ip dada de alta en la lista, esto es en el default smtp de windows 2003 server (iis manager), se supone que con este servicio se pueden enviar mensajes de correo, mi codigo es este:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Enviar Mensaje</title>
</head>

<body>

<%
Dim ObjSendMail
Dim iConf
Dim Flds

Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
'**** Path below may need to be changed if it is not correct
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update

Set ObjSendMail.Configuration = iConf
ObjSendMail.To ="[email protected]"
ObjSendMail.Subject = "Prueba del email CDO"
ObjSendMail.From ="[email protected]"
ObjSendMail.HTMLBody ="Hola sugey, esperemos que funcione, suerte"

priority="Normal"

Select case priority
case "High"
ObjSendMail.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "High" ' For Outlook 2003
ObjSendMail.Fields.Item("urn:schemas:mailheader:X-Priority") = 2 ' For Outlook 2003 also
ObjSendMail.Fields.Item("urn:schemas:httpmail:impo rtance") = 2' For Outlook Express
case "Normal"
ObjSendMail.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "Normal" ' For Outlook 2003
ObjSendMail.Fields.Item("urn:schemas:mailheader:X-Priority") = 1 ' For Outlook 2003 also
ObjSendMail.Fields.Item("urn:schemas:httpmail:impo rtance") = 1' For Outlook Express
case else
ObjSendMail.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "Normal" ' For Outlook 2003
ObjSendMail.Fields.Item("urn:schemas:mailheader:X-Priority") = 1 ' For Outlook 2003 also
ObjSendMail.Fields.Item("urn:schemas:httpmail:impo rtance") = 1' For Outlook Express

end select

requestreply="yes"
if requestReply = "Yes" then
ObjSendMail.Fields("urn:schemas:mailheader:disposi tion-notification-to") = "[email protected]"
ObjSendMail.Fields("urn:schemas:mailheader:return-receipt-to") = "[email protected]"
End if
ObjSendMail.Fields.Update

'Set DSN options.
' Name Value Description
' cdoDSNDefault 0 No DSN commands are issued.
' cdoDSNNever 1 No DSN commands are issued.
' cdoDSNFailure 2 Return a DSN if delivery fails.
' cdoDSNSuccess 4 Return a DSN if delivery succeeds.
' cdoDSNDelay 8 Return a DSN if delivery is delayed.
' cdoDSNSuccessFailOrDelay 14 Return a DSN if delivery succeeds, fails, or is delayed.

ObjSendMail.DSNOptions = 14
ObjSendMail.Send

on error resume next

if err.number = 0 then
Response.Write("Mensaje enviado con éxito")
else
Response.Write("Error al enviar el mensaje <br>" + err.description)
End if

Set ObjSendMail = Nothing
%>
</body>
</html>

es local, ese envio de correo lo debe resolver el SMTP ? o me equivoco, no cacha ningun error, me aparece que el mensaje fue enviado con exito, sin embargo cuando checo mi correo, no me llega nada :(

que puede estar pasando??