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> </p>"
Cuerpo = Cuerpo & "<p>Estimado Administrador, el user "&usuario&" a enviado a validacion sus datos Numero "&datos&" </p>"
Cuerpo = Cuerpo & "<p> </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
