¿Cómo enviar muchos email a la vez con una BD con muchos?

[antoli]

Te refieres algo así:

Código:

<%
'Declaramos las variables a usar
Dim nombre, email, mensaje, oMail

'Obtenemos los valores del formulario
TextBody = Request.Form("TextBody")
Subject = Request.Form("Subject")

Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/database/email.mdb")
Set oRS = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM email"
oRS.Open sql, oConn


	  Dim iMsg
      Dim iConf
      Dim Flds
      set iMsg = CreateObject("CDO.Message")
      set iConf = CreateObject("CDO.Configuration")
      Set Flds = iConf.Fields
      Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
      Flds.Update
      
	  With iMsg

      Set.Configuration = iConf
      .From = "[email protected]"
cuenta=1   
do while not oRS.eof
if cuenta=100 then
response.flush
else
      .To = Trim(oRS("email"))
      .Subject = Request.Form("Subject")
      .HTMLBody = Request.Form("TextBody")
      .Send
cuenta=cuenta+1
end if
rs.movenext
loop
      Set iMsg = Nothing
      End With

Response.Write "<div align=center><b>Envío realizado correctamente.<br>"
Response.Write "Ha enviado el email a todos los de REGISTRO.MDB<br></b>"
Response.Write "<br><br><div align=center><a href=javascript:window.close(); title='CERRAR VENTANA'><b><font face='Flat Brush' color=#008080 style=font-size:10pt><u>CERRAR VENTANA</u></font></b></em></a></span></div>"
%>

Gracias, espero tu confirmación o la de otro usuario.