Meu programa de envio de boletins semanais:
<%
server.scripttimeout = 100
var_num=50
assunto="Boletim Semanal"
If request.QueryString("pag")="" then
response.write "[ <a href='enviaratualizacao.asp?pag=1'>Iniciar</a> ]<br>"
response.write "[ <form action='enviaratualizacao.asp' method='get'>Ir p/ página: <input type='text' name='pag' size='3'> <input type='submit' value='ok'></form> ]"
else
ConnString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application("bd") & "banco.mdb;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.CursorLocation = 3
Conn.Open ConnString
Set rstTemp = Server.CreateObject("ADODB.Recordset")
rstTemp.CacheSize = var_num
rstTemp.PageSize = var_num
SQLString="select nome,email from tabela where tipodeenvio=1"
rstTemp.Open SQLString, Conn
pag=cInt(request.QueryString("pag"))
rstTemp.AbsolutePage = pag
response.write "<p align='right'><font color='#000000' size='1' face='Verdana,Arial,Helvetica'><b>" & rstTemp.RecordCount & " e-mails encontrados. Mostrando página " & pag & " de " & rstTemp.PageCount & "</b></font></p>"
SQLSend="select nome, email, codigo from tabela where email='" & rstTemp("email") & "'"
rstTemp.MoveNext
if not rstTemp.Eof then
for contador = 2 to var_num
SQLSend=SQLSend & " or email='" & rstTemp("email") & "'"
rstTemp.MoveNext
If rstTemp.Eof then Exit For
next
end if
Set obj_fso = Server.CreateObject("Scripting.FileSystemObject")
Set objArquivo = obj_fso.OpenTextFile(Server.MapPath("boletim.html"),1)
men objArquivo.ReadAll
Set objArquivo = Nothing
Set obj_fso = Nothing
Set mailer = Server.CreateObject("SoftArtisans.SMTPMail")
mailer.CharSet = 2
mailer.Subject = assunto
mailer.HTMLText = men
mailer.FromName = "Nome do Site"
mailer.FromAddress = "email@site.com.br"
Mailer.AddRecipient "%%nome%%", "%%email%%"
mailer.RemoteHost = "smtp.nome_do_site.com.br"
Set objRec = Conn.Execute(SQLSend)
If mailer.MassMail (objRec) Then
Response.Write "Emails Enviados"
Else
Response.Write "Falhou o envio."
End If
if rstTemp.PageCount<>1 then
response.write "<p align='center'><font color='#000000' size='2' face='Verdana,Arial,Helvetica'><b>"
response.write "[ <a href='enviaratualizacao.asp?pag='>Voltar ao Inicio</a> ]<br>"
response.write " [ <a href='enviaratualizacao.asp?pag="&pag&"'>Repetir Página</a> ] "
If pag <> rstTemp.PageCount then
response.write " [ <a href='enviaratualizacao.asp?pag="&pag+1&"'>Proxima</a> ] "
End If
response.write "</b></p><script>window.setTimeout(""window.open('enviaratualizacao.asp?pag=" & pag+1 & "','_self','')"",5000);</script>"
end if
Set rsttemp = nothing
Set RSQ = nothing
Conn.Close
Set Conn = nothing
Set Mail = Nothing
Set objArquivo = Nothing
Set obj_fso = Nothing
end if%>
O script puxa o html do arquivo boletim.html e envia para a lista de emails de 50 em 50 se quiser é so mudar a variavel var_num Ele vai pulando sozinho de 5 em 5 segundos para os próximos 50 emails Espero que ajude alguém []s