Hola amigos,
Llevo dias intentando hacer que me funcione esto pero sigo sin dar con el error. Haber si me podeis ayudar porque nose que puede ser.
Me manda el mail solo al primero de la base de datos.
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>
Da este error:
error '80040108'
/newsletter22.asp, line 22
Gracias
Laika
;) ;) ;)