Tengo una lista de correo la cual me envia un correo a todos los usuarios de esa lista, el problema es que no se que pasa con el código que lo que hago es mandar 5000 mensajes seguidos al primero que figura en mi base de datos (vaya, jeje, esto debe ser un mailbomber, coñe, pero no quiero eso,no veas que rato he estado para borrar los 5000 mensajes que e enviado a mi correo
). el código es este:
strAccessDB = "../administracion_file/entrada"
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=JJ; DBQ=" & Server.MapPath(strAccessDB)
Set RSts = Server.CreateObject("ADODB.Recordset")
SQLts = "SELECT * FROM CORREO"
RSts.open SQLts, strCon
Do While Not RSts.eof
set mailObj = Server.CreateObject("CDONTS.NewMail")
sCuerpo = "DATOS"
mailObj.BodyFormat = 0
mailObj.MailFormat = 0
mailObj.From = "
[email protected]"
mailObj.To = RSts("Email")
mailObj.Subject = "MENSAJE"
mailObj.Body = sCuerpo
mailObj.Send
Loop
Alguien sabe como solucionar esto????
Un saludo