Problemas con una Listas de Correo en ASP y ACCESS

roberbati · #1 (**permalink**) 14/12/2009, 10:02

Hola, soy bastante nuevo y totalmente autodidacta en esto de ASP, y hasta ahora venia re bien, pero quiero hacer una aplicacion que envie un mail determinado a todos los usuarios que tengo en un tabla, y por alguna razon todo funciona bien, salvo que me manda solo al primer usuario de la tabla y no al resto, yo ya tengo el bocho completamente quemado, y no se me ocurren mas ideas o donde mas buscar info para aprender a hacerlo, asi que si alguien se copa y me da una mano,,, le voy a estar muy agradecido, aca les pego todo el codigo

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">


<%
Dim rsClientes

Set rsClientes = Server.CreateObject("ADODB.Recordset")
rsClientes.ActiveConnection = MM_cnx_BD_STRING
rsClientes.Source = "SELECT * FROM Cliente1"
rsClientes.Open()

%>

<%

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "***********"

Mail.Username = "*********"

Mail.Password = "**********"

Mail.From = "[email protected]"

Mail.FromName = "Departamento "

Mail.AddAddress ""&rsClientes("email")&""

Mail.Subject= "Hola"

Mail.Body ="<html><body bgcolor=#DDDDDD>Estimado Amigo,..."&rsClientes("email")&"</BODY></HTML>"

Mail.IsHTML = True

On Error Resume Next

Mail.Send

If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
Else
Response.Write "Mensaje enviado con éxito "&rsClientes("email")&" <br> "
End if

If Not rsClientes.EOF Then
do while not rsClientes.EOF
'call sendMail(rsClientes(0))
rsClientes.moveNext
loop
End If
%>

</body>
</html>

Desde ya muchas gracias!!!!!!!!!

jochesfor · #2 (**permalink**) 14/12/2009, 10:22

Hola Roberbati, el envio de correos se hace si no me equivoco con la direccion de correo, una coma, espacio y otra direccion de correo, ej:
[email protected], [email protected].

te recomiendo que hagas un While (Not objRS.eof) y vayas almacenando todos los correos a los que quieras enviar un mensaje, asi:

While (Not objRS.eof)
Email= Email & ", "& objRS.("Email") 'ojo con el primero o con el ultimo, depende de como lo hagas.
objRS.MoveNext
wend

Lo puedes enviar como quieras ya sea en el listado primario, como copia o como copia oculta y llamas al mail.send una sola vez.

prueba, espero te funcione.