7 replies to this topic

[abc2]

ja procurei algo parecido mas nao achei...
fiz um sistema de newsletter e ele funciona bem ate com uns 100 emails mais ou menos... o problema é que sao quase 900 cadastrados e pra maioria deles o newsletter nao chega, mesmo o endereco estando certo...
entao eu pensei em enviar o newsletter de 10 em 10 emails, ou algo parecido, como se fosse um loop enviando de 1 em 1... alguem poderia dar uma ajuda?

Pode ser com JMail ou CDOSYS

PS- ja usei Resume.Next e aumentei o timeout do servidor de email, mesmo assim ele nao envia pra todos os emails cadastrados..

[Luis Otávio]

faz uma paginação normal...
como vc pensou de 10 em 10...

e coloca um JS para dar refresh na pagina depois de um minuto.. entaum ele envia 10.. aguarda... 1 minuto envia mais 10...

<META HTTP-EQUIV=Refresh CONTENT="10; URL=http://localhost/News.asp?Pag=2/">

[abc2]

valew Luiz, mas acabei fazendo um loop mesmo... por enqto funcionou hhehe

On Error Resume Next
Server.ScriptTimeout=1000000000
set rsEmails=conn.execute("select * from newsletter_usuarios")
no = 0
if rsEmails.EOF then
Response.write "Nenhum e-mail cadastrado"
Else
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.tpa.com.br"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 1000000
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "remetente@xxx.com.br"
objCDOSYSMail.Bcc = rsEmails("email")
objCDOSYSMail.Subject = request.form("assunto")
objCDOSYSMail.HtmlBody = request.form("mensagem")
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
no = no + 1
rsEmails.MoveNext
Wend
Response.Write ""
rsEmails.Close
Set rsEmails = Nothing
End If

[Luis Otávio]

cara... isso pode ser tb por causa do CdoSys...
tipo.. eu ja mandei mais de 100 mil emails direto com o AspEmail.. e ele nunca deixou de enviar um sequer...

o cdsosys... acho que é o unico q tem conexão maxima com o smtp... [ se naum configurado no host ]

[abc2]

pois eh tb pensei nisso, por isso ate aumentei o timeout na esperanca q pudesse ajudar em alguma coisa.. problema eh q o servidor soh tem jmail e cdosys ai me complicou hehehe sempre usei aspmail ou cdonts e nao abro mao deles por nada.. porem esse foi um caso isolado

tanks

[Matrix2003]

Cara a unica coisa que adiantou para mim fori isto muito bom mando semanalmente 85,0000 mil emails, muito legal só altera o db e a tabela do db

<%
Response.Buffer = True 

'Pega os dados digitados no form
assunto = 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 consultada
If Request.QueryString("pagina_atual") = "" Or Request.QueryString("pagina_atual") = "0" Then
pagina_atual = 1
Else
pagina_atual = Request("pagina_atual")
End If

'Cria conexao com o banco de dados, informe corretamente o caminho do banco de dados
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Data Source=c:\domains\amigoswm.com\wwwroot\e-mail\database\dados.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

'Captura o email dos registros da tabela pela ordem alfabética
ComandoSQL = "SELECT * FROM usuarios ORDER BY email ASC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 2
objRS.LockType = 1
objRS.CacheSize = registros_por_pagina
objRS.Open ComandoSQL, Conexao,,, &H0001
objRS.PageSize = registros_por_pagina
status = ""

If Not objRS.EOF Then

'Informa o numero da pagina a ser utilizada
objRS.AbsolutePage = pagina_atual

'Captura o numero total de paginas criadas
total_paginas = objRS.PageCount

'Calcula o percentual de emails enviados até o momento
status_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 newsletter
For Cont = 1 to objRS.PageSize

'Para mensagem em HTML utilize sempre este bloco no inicio da mensagem a ser enviada
assunto = request("assunto")
mensagem = request("mensagem")


'Envia a mensagem para o email do registro atual
Set ObjMail = Server.CreateObject("CDONTS.NewMail")


'Informa o email atual a ser enviado
ObjMail.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 = 1
ObjMail.BodyFormat = 0
ObjMail.MailFormat = 0

'Informa o texto da mensagem
ObjMail.body = mensagem

'Envia o email
ObjMail.send

'Elimina variavel da memória
Set ObjMail = nothing

'Vai para o proximo registro da pagina
objRS.MoveNext
Next

%>

<html>
<head>
<title>Newsletter</title>
</head>
<body>

<%
If Int(pagina_atual) < Int(total_paginas) Then

'Informa o status do envio da newsletter
Response.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 If
End If
%>

</body>
</html>

<%
'Fecha a conexao com o banco de dados
objRS.Close
Conexao.Close

'Elimina as variaveis da memória do servidor
Set pagina_atual = Nothing
Set total_paginas = Nothing
Set ComandoSQL = Nothing
Set objRS = Nothing
Set objRS_atualiza = Nothing
Set Conexao = Nothing
Set status_envio = Nothing
%>

[Andersoncintra]

Ola,

Sou um pouco nó cego em relaçao aos códigos, porem estou a procura de uma newsletter que envie cerca de 6.000 e-mails, se vocês puderem me ajudar e enviar em meu e-mail e se possivel explicar ficarei muito grato, como já estou com a colaboração de todos.


Obrigado desde já

Anderson
cintratecnologia@terra.com.br

[Matrix2003]

se você quizer posso te arrumar uma que fiz muito boa você pode configurar a quant. de email a ser enviado mando cerca de 150 mil emails semanais para meus fornecedores tudo atravez do asp