Newsletter

[marciolvs 1]

Olá pessoal, procurei nos forums e sites de busca mas não encontrei..

bom, tenho um sistema de newsletter o administrador inclui a informação e envia a seus varios clientes a mensagem, porem meu servidor limita o envio de 4 e-mails por minuto, sendo assim teria que pausar o sistema para ele voltar a cada 15 segundos e enviar o proximo e-mail.

 

Alguém tem uma idéia ou exemplo de como faz isso ?

 

segue meu código

   <% case "enviando" %>
   <%	user = 0
   assunto = Request.Form("assunto")
   mensagem = Request.form("mensagem")
   mensagem = mensagem & "<BR>Para parar de receber este email <a href="&nomesitecliente&"/sistema/newsletter.asp?acao=tiraemail>clique aqui</a>"

call AbreConexao
   Sql = "SELECT email FROM dados"
   If Len(mensagem) Then
   
    set rs = conexaodb.execute(sql)
	'Set rs = Server.CreateObject("ADODB.Recordset")
	'rs.Open Sql, ConStr, 3, 3
   
   While Not rs.EOF
   
    Set Mail = Server.CreateObject("Persits.MailSender")
			'..Servidor de SMTP
			Mail.Host = smtp
			'..E-mail do remetente
			Mail.From = nomeemailcliente
			'..Remetente
			'Mail.FromName = "nome"
			'..E-mail do destinatário
			Mail.AddAddress rs("email") '"emaildestinatario@dominio"', "seunome"
			'..Assunto da mensagem
			Mail.Subject = vassunto'"titulo do email"
			'..Corpo da mensagem
			'Mail.Body = "Olá!" & Chr(13) & Chr(10) & "Isso é apenas um teste do componente ASPEmail"
			Mail.Body = mensagem
			'..Utilize este código caso o formato do e-mail seja HTML
			Mail.IsHTML = True
			'..Utilize este código caso for enviar anexo.
			'..Mail.AddAttachment
			'("E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\o-arquivo"),
			On Error Resume Next
			Mail.Send
			If Err <> 0 Then
			Response.Write "Error encountered: " & Err.Description
			End If
			%>
	<%Set Mail = Nothing%>
<%   
   
   Response.Write "Email enviado para : " & rs("email") & "<br>"
   user = user + 1
   rs.MoveNext
   Wend
   Response.Write "No total foram enviados " & user & " emails."
   rs.Close
   Set rs = Nothing
   Sql = "INSERT INTO enviados (assunto,mensagem,data) VALUES('" & Request("assunto") & "','" & mensagem & "','" & date & "')"
   'response.Write(SQL)
   'response.End()
   Conexaodb.Execute(Sql)
   Else
   Response.Redirect "principal.asp?ir=newsletter.asp&acao=erro"
   End If
   call FechaConexao %>

Agradeço desde já.

[xanburzum 169]

faça uma paginação dos email enviados, coloquei um exemplo de envio de email em massa, onde você pode paginar seu envio e quantidade

dá uma procurada no fórum...

[marciolvs 1]

faça uma paginação dos email enviados, coloquei um exemplo de envio de email em massa, onde você pode paginar seu envio e quantidade

dá uma procurada no fórum...

 

Não entendi para q seria a paginação. pois após o envio ele página e exibe os enviados.

[xanburzum 169]

você tem controle do que foi enviado e quantos foram, podem aumentar ou diminuir a quantidade

[marciolvs 1]

você tem controle do que foi enviado e quantos foram, podem aumentar ou diminuir a quantidade

 

 

tenho sim, mas não sei como aumentar ou diminuir a quantidade.

 

 Response.Write "Email enviado para : " & rs("email") & "<br>"
   user = user + 1
   rs.MoveNext
   Wend
   Response.Write "No total foram enviados " & user & " emails."
   rs.Close

[xanburzum 169]

faz uma busca pelo code email em massa, onde nele você pode colocar a quantidade de emails a serem enviados