Mandar correos masivos en ASP con BD en ACCESS

[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