Ir para conteúdo
Fórum Script Brasil
  • 0

Sistema - Mala Direta (urgente)


Guest - Claudio -

Pergunta

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

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

Esse codigos serão muito util pra você wink.gif

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

Link para o comentário
Compartilhar em outros sites

  • 0
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.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...