Ir para conteúdo

POWERED BY:

Arquivado

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

zanelati2002

new letter para mais de 3,000 emails

Por , em ASP Clássico

Recommended Posts

zanelati2002    0

zanelati2002
Postado

olhem o codigo o que acontece que não consigo pegar os dados do form e mandar para o email não esta chegando .

<%Response.Buffer = True 'Pega os dados digitados no formassunto = request("assunto")mensagem = request("mensagem")'Numero de registros por pagina (emails a serem enviados, neste caso, 10 por vez)Const registros_por_pagina = 10'Verifica o numero da pagina de registros a ser consultadaIf Request.QueryString("pagina_atual") = "" Or Request.QueryString("pagina_atual") = "0" Thenpagina_atual = 1Elsepagina_atual = Request("pagina_atual")End If'Cria conexao com o banco de dados, informe corretamente o caminho do banco de dadosSet Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open "Data Source=c:\domains\sitedozanelati.com\wwwroot\email\database\dados.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"'Captura o email dos registros da tabela pela ordem alfabéticaComandoSQL = "SELECT * FROM usuarios ORDER BY email ASC"Set objRS = Server.CreateObject("ADODB.Recordset")objRS.CursorLocation = 3objRS.CursorType = 2objRS.LockType = 1objRS.CacheSize = registros_por_paginaobjRS.Open ComandoSQL, Conexao,,, &H0001objRS.PageSize = registros_por_paginastatus = ""If Not objRS.EOF Then'Informa o numero da pagina a ser utilizadaobjRS.AbsolutePage = pagina_atual'Captura o numero total de paginas criadastotal_paginas = objRS.PageCount'Calcula o percentual de emails enviados até o momentostatus_envio = status_envio & Fix((pagina_atual*100)/total_paginas) & "% enviado<br>"'Percorre todos os registros da pagina atual para capturar os email a serem enviados a newsletterFor Cont = 1 to objRS.PageSize'Para mensagem em HTML utilize sempre este bloco no inicio da mensagem a ser enviadaassunto = request("assunto")mensagem = request("mensagem")'Envia a mensagem para o email do registro atualSet ObjMail = Server.CreateObject("CDONTS.NewMail")'Informa o email atual a ser enviadoObjMail.to = email'Informa o email do remetente, o titulo do email e outras configurações ObjMail.from = "faleconosco@sitedozanelati.com"ObjMail.subject = "Novidades"ObjMail.Importance = 1ObjMail.BodyFormat = 0ObjMail.MailFormat = 0'Informa o texto da mensagemObjMail.body = mensagem'Envia o emailObjMail.send'Elimina variavel da memóriaSet ObjMail = nothing'Vai para o proximo registro da paginaobjRS.MoveNextNext%><html><head><title>Newsletter</title></head><body><%If Int(pagina_atual) < Int(total_paginas) Then'Informa o status do envio da newsletterResponse.Write status_envio'Codigo JavaScript para atualizar a pagina e enviar os proximos emails, neste caso, a cada 5 segundos%><br>Aguarde o envio da newsletter...<script LANGUAGE="JavaScript"><!--function atualiza(){document.location.href = "<%=Request.ServerVariables("SCRIPT_NAME")%>?pagina_atual=<%=pagina_atual+1%>"}setTimeout("atualiza()",5000);//--></SCRIPT><%Else'Informa que o envio da newsletter foi concluido%>Envio da Newsletter concluido.<%End IfEnd If%></body></html><%'Fecha a conexao com o banco de dadosobjRS.CloseConexao.Close'Elimina as variaveis da memória do servidorSet pagina_atual = NothingSet total_paginas = NothingSet ComandoSQL = NothingSet objRS = NothingSet objRS_atualiza = NothingSet Conexao = NothingSet status_envio = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Magnoweb    0

Magnoweb
Postado

Observe o seguinte, como você está mandando os emails de forma paginada as variáveis assunto e mensagem só terão valores na primeira vez q rodar o script.Utilizo um script semelhante, mas passo por uma página entes de chegar a página de envio, apenas para guarda os valores em uma variável de sessão assim naum perco os valores.Espero ter ajudado.t+,Magnoweb B)

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