Extraño problema con cdon

[bitshoot]

Hola a todos tengo un problema hace unos dias con e envio de mail los que pasa, esk tengo n tablas de destinatarios en la bases de datos y tengo k seleccionar una y hacer el envio de mail, estoy utilizando cdon y tengo el sig codigo.


nombredb = request.Form("nombredb")

sql = "select * from (encComponeMail inner join encCargaArchivoTxt "
sql = sql + "on id_encta = id_encEnviada) inner join "&nombredb&" on Email is not null"

set rsDestinatario = server.CreateObject("adodb.recordset")
rsDestinatario.open sql , conexion

while not rsDestinatario.eof

texto = ""_ ' composicion del mail

strDESDE = rsDestinatario("Email")
strPARA = rsDestinatario("Email")

Set mailobj = Server.CreateObject("CDONTS.NewMail") ' naca error
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.from = strDESDE
mailobj.to = strPARA
mailobj.subject = "SE ENCUENTRA DISPONIBLE UNA NUEVA ENCUESTA"
mailobj.body = texto
mailobj.send

rsDestinatario.movenext
wend

y el error k me manda en la linea marcada arriba es...

Tipo de error:
Objeto Server, ASP 0177 (0x800401F3)
Cadena clase no válida

esto pasa solamente cuando hago el envio a la segunda tabla, ya que me permite hacer el primer envio.

[trasgukabi]

no tienes cdonts registrado en tu servidor. en las FAQ tienes la respuesta a tu problema

[bitshoot]

pero si esta registrado, si antes mendaba los mails, pero cuando lo hacia a una sola tabla, ahr me hace solo el primer envio y cuando quiero enviar a otra tabla de clientes me sale ese error.

[trasgukabi]

pues prueba asi...

Código:

nombredb = request.Form("nombredb")

sql = "select * from (encComponeMail inner join encCargaArchivoTxt "
sql = sql + "on id_encta = id_encEnviada) inner join "&nombredb&" on Email is not null"

set rsDestinatario = server.CreateObject("adodb.recordset")
rsDestinatario.open sql , conexion

while not rsDestinatario.eof

texto = ""_ ' composicion del mail

strDESDE = rsDestinatario("Email")
strPARA = rsDestinatario("Email")

Set mailobj = Server.CreateObject("CDONTS.NewMail") ' naca error
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.from = strDESDE
mailobj.to = strPARA
mailobj.subject = "SE ENCUENTRA DISPONIBLE UNA NUEVA ENCUESTA"
mailobj.body = texto
mailobj.send
mailobj.close
set mailobj=nothing
rsDestinatario.movenext
wend

[trasgukabi]

aunque podrías hacerlos de otra manera: mandar UN SOLO E-MAIL con un destinatario y en la propiedad BCC el resto.

[bitshoot]

si esta registrado, ya que me estaba haciendo el envio a una tabla, pero ahora el envio es dinamico y pueden ser a una tabla seleccionada y me realiza solo cuando selecciono la primera tabla y luego cuando selecciono otra tabla pra hacer el envio me manda ese error.

ok recien vi los otros mensajes voy a probar, gracias

[bitshoot]

probe las dos opciones que me recomendaste pero me manda el mismo error, porque me ocaciona ese tipo de error?

[AlZuwaga]

Probá quitando la instancia al objeto CDONTS fuera del ciclo:

Código:

Set mailobj = Server.CreateObject("CDONTS.NewMail") ' naca error
while not rsDestinatario.eof
...
rsDestinatario.movenext
wend
Set mailobj = nothing

[bitshoot]

master probre sacando la instancia al objeto fuera del siclo, pero me manda el error en la linea donde hago instancio al objeto, en este caso fuera del while y me manda el mismo error.

incluso la variable que hace la instanca la hago dinamica para que no se repita y aun asi me manda el error. (rnd)