Sistema - Mala Direta (urgente)

[Guest - Claudio -]

Estou tendo que fazer uma alteração em um sistema de mala direta e preciso que o sistema envie mala direta para lotes de usuarios, em um determinado intervaldo de tempo.

não posso mandar para todos os usuarios de uma vez só, pois esta travando o servidor. Tenho cerca de 5000 mails cadastrados e pretendo enviar usuarios em intervalos de 5 em 5 segundos ?? Há como fazer isso ???

Obrigado

[Deividy]

sim até tem como você fazer isso.

você faz algum programa já pra envio de e-mail?

[ursolouco]

Brothers!!

Pesquisando por ai na web, sobre este tipo de coisa, achei algo mencionado num forum de discução sobre atualização da página a cada 5 seg recolhendo dados via querystring e movendo o ponteiro para o proximo registro de uma array... mas nem pensei como fazer isto.....

[Victor]

Esse codigos serão muito util pra você

Function_email.asp

<%
function email_cdonts(de_email, para_email, subject,  mensagem)

Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.mailformat=0 'para enviar html como mensagem
objmail.bodyformat=0 'para enviar html como mensagem
objmail.from = de_email
objmail.to = para_email
objmail.subject = subject
objmail.body = mensagem
objmail.send
Set objmail = nothing

end function
%>

Conecta.asp

<%
local=Request.ServerVariables("SERVER_NAME")

if local="www.nomedosite.com.br" or local="nomedosite.com.br" then
	conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:Endereço virtual do servidor;Persist Security Info=False"
end if

if local="localhost" or local="nome do computador" then
	conexao= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\.....;Persist Security Info=False"
end if

set conn = Server.CreateObject("adodb.connection")
conn.open conexao
%>

Maladireta.asp

<!--#include file="conecta.asp"-->
<!--#include file="function_email.asp"-->

<%
if request.form("acao") = "enviar" then

	set RecSet = server.createobject("adodb.recordset")
	RecSet.open "select nome, email from newsletter where ativado=1", conn
  while not RecSet.EOF
    
    mensagem = ""&_
    "<table>"&_
    	"<tr height=100>"&_
      "<td bgcolor=#ff9900>"&_
      	"<font size=5 color=#FFFFFF>E-mail de teste</font>"&_
      "</td>"&_
    	"</tr>"&_
    	"<tr>"&_
      "<td>"&_
      	"Olá "&RecSet("nome")&", <br><br>"&request.form("mensagem")&_
      "</td>"&_
    	"</tr>"&_
    "</table>"
    
  	call email_cdonts("seu e-mail", RecSet("email"), request.form("titulo"), mensagem)
  	RecSet.MoveNext
  wend
	RecSet.close
	set RecSet = nothing
else
%>

<form action="maladireta.asp" method="post" name="maladireta">
<table>
	<tr>
  <td>Título:&nbsp;</td>
  <td><input name="titulo" size="20"></td>
	</tr>
	<tr>
  <td>Mensagem:&nbsp;</td>
  <td><textarea name="mensagem" rows="7" cols="25"></textarea></td>
	</tr>
	<tr>
  <td rowspan="2" align="center"><input type="Hidden" name="acao" value="enviar"><input type="submit" name="botao" value="Enviar"></td>
	</tr>
</table>
</form>
<%end if%>

[]'s

Victor

[Guest - Claudio -]

Eu já tenho todo o sistema de mala direta pronto e funcionando. Como disse meu unico problema esta sendo que é necessario o envio da mala direta em lotes. Pois se envio todos os mails, esta travando o servidor.