te explico mas menos....
tengo 1300 correos que enviar y este es mi codigo...
Código:
<%ScripTimeOut = 3000000%>
<%
Set conexion=Server.CreateObject("ADODB.Connection")
conexion.Open strConnection
Set registros = conexion.Execute("SELECT * FROM boletin")
Do While Not registros.EOF
Recipient =registros.Fields("mails").Value
Sender = "mi correo"
titulo = Request.Form("asunto")
texto= Request.Form("mensaje")+"by:<br>splashman"
Set oMail = Server.CreateObject ("CDONTS.NewMail")
oMail.BodyFormat = 0
oMail.MailFormat = 0
oMail.Send Sender, Recipient, titulo, texto
Set oMail = Nothing
registros.MoveNext
loop
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
%>
y este es mi codigo...., no puedo hacer pruebas porque tendria que enviarles los correos a todos los usuarios.....
gracias por ayudarme...
salu2