Foros del Web » Programando para Internet » ASP Clásico »

Problemas CDO Usuarios windows 2003

Estas en el tema de Problemas CDO Usuarios windows 2003 en el foro de ASP Clásico en Foros del Web. Estimados primero que todos saludarlos y agradecer cualquier ayuda con respecto a mi problema. el tema es que en un servidor (Windows server 2003 estandar ...
  #1 (permalink)  
Antiguo 04/02/2010, 08:51
Avatar de senel  
Fecha de Ingreso: febrero-2010
Ubicación: Rancagua, Chile, Chile
Mensajes: 5
Antigüedad: 9 años, 10 meses
Puntos: 1
Problemas CDO Usuarios windows 2003

Estimados primero que todos saludarlos y agradecer cualquier ayuda con respecto a mi problema. el tema es que en un servidor (Windows server 2003 estandar Edition) modificaron los permisos de usuarios a las carpetas de httpdocs y tenemos un sitio en asp en una subcarpeta llamada webcontrol, el cuento es que se vé perfectamente pero cuando uno decide guardar los cambios, aparece el error de CDO.Message.1 error '80040220' "SendUsing". , EN LA LINEA 569, es ahi donde se encuentra el codigo para enviar el correo ""myMail.Send"", el codigo está bien por que funcionaba perfecto antes de modificar los permisos de las carpetas, ya inclui el usuario anonimo y al IUSR_nombremaquina ademas de los administradorese en la pestaña seguridad de las propiedades de la carpeta. Por Favor me pueden ayudar a que pueda enviar el correo, determiando que usuario es el que realiza esta tarea o algo parecido.

Estimados

este es el codgio por si me pueden ayudar

sql = "select email from tbl_ejecutivos"
set rs = CreateObject("ADODB.Recordset")
rs.Open Sql, Conn2
do while not rs.eof
CorreoAdministradores = CorreoAdministradores & "," & rs("email")
rs.movenext
loop

CorreoAdministradores = mid(CorreoAdministradores,2,len(CorreoAdministrado res))

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Nuevo Ingreso de datos"
myMail.From="[email protected]"
myMail.To=CorreoAdministradores
Cuerpo = "<HTML>"
Cuerpo = Cuerpo & "<HEAD>"
Cuerpo = Cuerpo & "<LINK href='http://www.xxx.com/style.css' type=text/css rel=stylesheet>"
Cuerpo = Cuerpo & "</HEAD>"
Cuerpo = Cuerpo & "<BODY leftMargin=0>"
Cuerpo = Cuerpo & "<table width='100%' border='0'>"
Cuerpo = Cuerpo & "<tr>"
Cuerpo = Cuerpo & "<td align='center'><img src='http://www.xxx.com/titulo.gif' width='580' height='90'></td>"
Cuerpo = Cuerpo & "</tr>"
Cuerpo = Cuerpo & "<tr>"
Cuerpo = Cuerpo & "<td align='center' class='texto'><p>&nbsp;</p>"
Cuerpo = Cuerpo & "<p>Estimado Administrador, el user "&usuario&" a enviado a validacion sus datos Numero "&datos&" </p>"
Cuerpo = Cuerpo & "<p>&nbsp;</p>"
Cuerpo = Cuerpo & "<p>Atte.<br>"
Cuerpo = Cuerpo & "<a href='http://www.xxx.com/></a></p>"
Cuerpo = Cuerpo & "</td>"
Cuerpo = Cuerpo & "</tr>"
Cuerpo = Cuerpo & "<tr></tr>"
Cuerpo = Cuerpo & "</table>"
Cuerpo = Cuerpo & "</BODY>"
Cuerpo = Cuerpo & "</HTML>"
myMail.HTMLBody = Cuerpo
myMail.Send (ACA ME TIRA EL ERROR DE LA PAGINA CDO.Message.1 error '80040220'
No es válido el valor de configuración "SendUsing".
)
set myMail=nothing



atte CSM

Última edición por senel; 05/02/2010 a las 13:47
  #2 (permalink)  
Antiguo 05/02/2010, 15:08
Avatar de senel  
Fecha de Ingreso: febrero-2010
Ubicación: Rancagua, Chile, Chile
Mensajes: 5
Antigüedad: 9 años, 10 meses
Puntos: 1
Respuesta: Problemas CDO Usuarios windows 2003

bueno nadie respondió pero encontré la solución, quedo así

sql = "select email from tbl_ejecutivos"
set rs = CreateObject("ADODB.Recordset")
rs.Open Sql, Conn2
do while not rs.eof
CorreoAdministradores = CorreoAdministradores & "," & rs("email")
rs.movenext
loop

CorreoAdministradores = mid(CorreoAdministradores,2,len(CorreoAdministrado res))

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Nuevo Ingreso de datos"
myMail.From="[email protected]"
myMail.To=CorreoAdministradores
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="xxx.xx.xxx.xxx"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update

Cuerpo = "<HTML>"
Cuerpo = Cuerpo & "<HEAD>"
Cuerpo = Cuerpo & "<LINK href='http://www.xxx.com/style.css' type=text/css rel=stylesheet>"
Cuerpo = Cuerpo & "</HEAD>"
Cuerpo = Cuerpo & "<BODY leftMargin=0>"
Cuerpo = Cuerpo & "<table width='100%' border='0'>"
Cuerpo = Cuerpo & "<tr>"
Cuerpo = Cuerpo & "<td align='center'><img src='http://www.xxx.com/titulo.gif' width='580' height='90'></td>"
Cuerpo = Cuerpo & "</tr>"
Cuerpo = Cuerpo & "<tr>"
Cuerpo = Cuerpo & "<td align='center' class='texto'><p>&nbsp;</p>"
Cuerpo = Cuerpo & "<p>Estimado Administrador, el user "&usuario&" a enviado a validacion sus datos Numero "&datos&" </p>"
Cuerpo = Cuerpo & "<p>&nbsp;</p>"
Cuerpo = Cuerpo & "<p>Atte.<br>"
Cuerpo = Cuerpo & "<a href='http://www.xxx.com/></a></p>"
Cuerpo = Cuerpo & "</td>"
Cuerpo = Cuerpo & "</tr>"
Cuerpo = Cuerpo & "<tr></tr>"
Cuerpo = Cuerpo & "</table>"
Cuerpo = Cuerpo & "</BODY>"
Cuerpo = Cuerpo & "</HTML>"
myMail.HTMLBody = Cuerpo
myMail.Send
set myMail=nothing

la idea de lo anterior es ir a buscar a una tabla de sql los correos de los administradores y enviarles un correo con formato html con los logos de la empresa avisando que un usuario modifico los datos. en esta pagina me iluminó

http://www.w3schools.com/asp/asp_send_email.asp


Etiquetas: cdo, usuarios, windows
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 07:47.