Ayuda con este codigo

Laika · #1 (**permalink**) 05/03/2002, 04:12

Hola amigos,
No se que esta mal en este codigo, el error me da en la linea 27:

Mail.Body = mensaje

ESTE ES EL CODIGO:

<%
Dim mensaje
Set Ob_Conn = Server.Createobject("ADODB.Connection")
Ob_Conn.Open "mibasededatos.mdb"
Set Rs=Ob_Conn.Execute ("SELECT * FROM mail")

set objCDOMail = Server.CreateObject("CDONTS.NewMail")

Do while not Rs.eof

Correo = Rs("mail")

mensaje = "Esto es una prueba"

objCDOMail.From ="[email protected]"
objCDOMail.To =Correo
objCDOMail.Subject = "Envio de mail"
Mail.Body = mensaje
objCDOMail.BodyFormat=0 'Estas dos línes
objCDOMail.MailFormat=0 'permiten formatear mejor el mensaje
objCDOMail.Send 'Lo Enmvio

rs.movenext
loop
Set objCDOMail = Nothing
%>

¿Qué está mal?

Gracias
Laika ;)

Laika · #2 (**permalink**) 05/03/2002, 05:52

He modificado unalinea y me ha quedado esto:

<%

Set Ob_Conn = Server.Createobject("ADODB.Connection")
Ob_Conn.Open "mibasededatos.mdb"
Set Rs=Ob_Conn.Execute ("SELECT * FROM mail")

set objCDOMail = Server.CreateObject("CDONTS.NewMail")

Do while not Rs.eof

Correo = Rs("mail")

objCDOMail.From ="[email protected]"
objCDOMail.To =Correo
objCDOMail.Subject = "Envio de mail"
mensaje = "<html><body><b><i>Ho la que tal te va...</i></b></body></html>"
objCDOMail.Body = mensaje
objCDOMail.BodyFormat=0 'Estas dos línes
objCDOMail.MailFormat=0 'permiten formatear mejor el mensaje
objCDOMail.Send 'Lo Enmvio

Rs.movenext
loop
Set objCDOMail = Nothing
%>

Ahora si me manda el e-mail pero solo a la primera direccion de la tabla de la base de datos. A persar de mandarme el mail de da este error:

error '80040108'
/newsletter14.asp, line 22

Me pueden ayudar?Ya solo me queda eso por solucionar.

Laika

Mecenias · #3 (**permalink**) 05/03/2002, 06:22

Si te lo envia al primer registro de tu seleccion y no a los demas es porque ha encontrado algun registros que no contiene nada en el campo email de tu tabla.Asegurate que todos los registros de tu seleccion tienen relleno dicho campo algo del tipo:

Select * from mail where email<>""

Suerte.

Laika · #4 (**permalink**) 05/03/2002, 09:13

Hola,
No es eso porque todos tienen relleno el campo mail, ¿que puede ser?

¿Esta mal hechoel bucle?

Ayudenme porfisss

Chaooo!!
Laika

Laika · #5 (**permalink**) 05/03/2002, 09:14

Hola,
No es eso porque todos tienen relleno el campo mail, ¿que puede ser?

¿Esta mal hechoel bucle?

Ayudenme porfisss

Chaooo!!
Laika

Laika · #6 (**permalink**) 05/03/2002, 11:47

¿No encuentran el error?

:( :(

Solo me manda al primero.
Saludos