Hola :(
Tampoco me funciona con eso, me mandaelmail solo al primero de la base de datos. Da este error:
error '80040108'
/newsletter22.asp, line 22
El codigo que me ha quedado es elsiguiente:
<HTML>
<head>
<TITLE> Email Masivo</TITLE>
<title>Mail</title>
</head>
<BODY>
<%
Set Ob_Conn = Server.Createobject("ADODB.Connection")
Ob_Conn.Open "basedatos"
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
%>
</body></html>
Haber si alguien puede dar con la solucion.
Gracias
Laika