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 ;)