Mandar correos masivos en ASP con BD en ACCESS

[Javrofb]

Hola! tengo un problema para mandar correos a varios destinatarios. El caso es que tengo una base de datos en acces, en la que están registrados los usuarios con su correo electrónico, intenté programar en ASP que mandara un correo de prueba a los usuarios registrados hasta ese momento que son 4 y que los por medio de response.write, me mostrara los correos a los cuales se había mandado el mensaje de prueba. Cuando ejecuto la página, se pueden ver los 4 correos registrados, pero el mensaje de prueba, solamente le llega al último de la lista, espero por favor que me puedan ayudar con este problema, pongo el código a su disposición para que me puedan orientar haber si tiene algún error. De antemano muchas gracias...

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("PyR.mdb")

set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset


%>
<!--
METADATA
TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library"
-->
<%
'------------------------------------------------------------------------
'------------------------------------------------------------------------
Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "Servidor"
.Update
End With

body = "Este es un correo de prueba para verificar la capacidad de envíar correos a varios destinatarios, por favor mandenme un correo de confirmación si recibieron este correo. Gracias."



Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = "remitente@compañia.com.mx"
.Subject = "Correo de Prueba"
.htmlBody= body
RS.Open "usuarios", Conn, 1
while not rs.EOF
RESPONSE.Write(rs.fields("email"))
.bcc = rs.Fields("email")
rs.MoveNext
wend
.Send

RS.Close
Conn.Close

End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>

[JuanRAPerez]

basico te mueves
te mueves
te mueves
y mandas al final el correo

Código asp:

.bcc = rs.Fields("email")
rs.MoveNext
wend
.Send
 

has esto

lee la base
haces el while
saca el correo
envia el correo
movenext

suerte

[JuanRAPerez]

va

Muzztein publico una funcion para el envio de correo

basicamente seria asi

- lees tu base de datos
- inicia el while
- ejecutas la funcion
- te mueves al siguiente registro
- fin

http://www.forosdelweb.com/f15/bibli...ml#post2647708


suerte

[Javrofb]

Hola! Muchas gracias por tu sugerencia, ya la puse en práctica pero sigue sin funcionarme, creo que el problema realmtente esta en el .bcc=, ya que como tengo entedido solamente soporta una dirección, es esto realmente cierto? Y si lo es como puedo solucionarlo?

De antemano Gracias

[JuanRAPerez]

ppegas tu codigo funcional?

[Javrofb]

Es básicamente el mismo de arriba, uso el bcc= asignándole una variable o lo pongo para que lea la base de datos como sigue:

while not rs.EOF
RESPONSE.Write(rs.fields("email"))
enviar = rs.Fields("email")
rs.MoveNext
.bcc = enviar
wend
.send

ó

while not rs.EOF
RESPONSE.Write(rs.fields("email"))
.bcc = rs.Fields("email")
rs.MoveNext
wend
.send

y como mencioné antes, si me funciona pero solamente llega el correo al ulitmi e-mail registrado en mi base de datos, en que me estoy equivocando??

[Shiryu_Libra]

aqui el error es que al iterar sobre los registros sobre-escribes el BCC

lo que seria mas factible es lo siguiente, en el while, podrias realizar algo como esto:

Código ASP:

BCC = ""
while not rs.EOF
if BCC="" then
BCC=rs.fields("email")
else
BCC= BCC & "; " & rs.fields("email")
end if
rs.MoveNext
wend
 

lo anterior es para recolectar todos los correos que necesitaras enviar copia del mail

despues termina rellena los parametros para el envio de correo.... asi....

Código ASP:

With cdoMessage  
        Set .Configuration = cdoConfig  
        .From = "remitente@compañia.com.mx"  
        .Subject = "Correo de Prueba"  
        .htmlBody=  body
.bcc = BCC
        .Send
    End With  
 
    Set cdoMessage = Nothing  
    Set cdoConfig = Nothing
 

[JuanRAPerez]

osea que no impleentastes la funcion

basicamente move estas cosas asi

Código asp:

while not rs.EOF
RESPONSE.Write(rs.fields("email"))
enviar = rs.Fields("email")
'este no tiene que ir aqui
'rs.MoveNext 
.bcc = enviar
wend
.send
'despues de enviado tenes que moverte
rs.MoveNext
 

suerte

[Javrofb]

Hola! Muchas gracias por sus respuestas, les comento que la sugerencia que me dio excelentes resultados. Saludos y estamos en contacto, GRACIAS!!!