Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

DackAle

com newsletter

Por , em ASP Clássico

Recommended Posts

DackAle    0

DackAle
Postado

E ae galera

 

Desenvolvi um sistema de envio de e-mails com paginação

 

Basicamente, ele pega os e-mails do banco de dados, faz a páginação automatica, envia 10, espera 10 segundos (JS), vai pra próxima página e envia

 

Tudo isso com o nome do destinatario, nome do remetente e etc...

 

Será que chegará aos destino ? Fiz alguns testes enviando alguns e-mails e NÃO chego pro meu gmail (que é o mais fácil de chegar)

 

Será que na pratica não rola ? To enviando local pra não ter problemas, será que isso piora a situação ? rs

 

O código para quem qusiser ve restá abaixo

 

<!--#include file="../includes/configuracoes.asp"--><!--#include file="../includes/dados.asp"--><!--#include file="../includes/verificacao.asp"--><%Response.Expiresabsolute = Now() - 2Response.AddHeader "pragma","no-cache"Response.AddHeader "cache-control","private"Response.CacheControl = "no-cache"SQL="SELECT email FROM Cadastros ORDER BY email ASC"SET RS = Server.CreateObject("AdoDB.RecordSet")RS.Open SQL,Conexao,3,3Pagina = Request("pg")			If Pagina = "" Then	Pagina = 1Else	Pagina = Cint(Pagina)End ifEmp = Request("Emp")If Emp = "" Then	Emp = 1Else	Emp = Cint(Emp)End ifRegistros = 10X = 0TotalDePaginas = RS.PageCountRS.cachesize = Registros RS.pagesize = RegistrosRS.absolutepage = Paginaif not rs.eof thenSET MDosys = CreateObject("CDO.Message") while not rs.eof and cint(x) < cint(registros)			VarMSG = "<img src=""http://www.infinitodigital.com.br/guia/apresentacao.jpg"" border=""0"">"						mdosys.From = "Guia dos Empretecos<contato@guiadosempretecos.com.br>"mdosys.to = "Empretecos Nº " & Emp & "<" & trim(rs("email")) & ">"mdosys.Subject = "Seminário Internacional de Biodiesel e H-Bio"mdosys.HTMLBody = VarMSGmdosys.sendUltimoE = trim(rs("email"))x = x + 1Emp = Emp + 1rs.movenextwendend if  SET MDosys = Nothingrs.close set rs = nothingconexao.closeset conexao = nothingIf Pagina <> TotalDePaginas ThenPagina = Pagina + 1%><html><head><meta http-equiv="refresh" content="10; URL=http://localhost:8080/Cliente%20-%20Linha%20D'Agua/Guia%20dos%20Empretecos/painel/env_newsletter.asp?pg=<%=Pagina%>&Emp=<%=Emp%>&Ultimo=<%=UltimoE%>"></head><body></body></html><% Else%><html><head><meta http-equiv="refresh" content="10; URL=http://localhost:8080/Cliente%20-%20Linha%20D'Agua/Guia%20dos%20Empretecos/painel/admin_newsletter.asp"></head><body></body></html><%end if %>

Qualquer ajuda é bem vinda :)

 

Abraços e valeu galera

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ratu    0

Ratu
Postado

cara eu fiz um esquema muuuito parecido com o seu no,lab de scripts...

Compartilhar este post

Link para o post
Compartilhar em outros sites

DackAle    0

DackAle
Postado

Legal ratu vou olharvoc~e já chegou a mandar uma quantidade grande ? sabe se boa parte chegou ?sabe o 44000 e-mails enviando pelo servidor poderia afeta-lo ? rs

Compartilhar este post

Link para o post
Compartilhar em outros sites

DackAle    0

DackAle
Postado

hahaahaha vou buscar então :DAbraçosOBS:Busquei e só acou postds de um usuario com esse nick, não achou nada referente a isso :(

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ratu    0

Ratu
Postado

Cara eu enviei com meu script 15.000 emails de boa...

Compartilhar este post

Link para o post
Compartilhar em outros sites

DackAle    0

DackAle
Postado

Cara eu enviei com meu script 15.000 emails de boa...

hmmmm local ou no servidor ?Queria mandar on-line, tem e-mail indo até agora, uso o Avast e quando vai sair e-mail do PC, ele mostra um icone no tray e toda hora vejo mandando algum ainda... rssss
Ah valeu, muito bom mesmo :DObrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito