36 replies to this topic

[Matrix2003]

Olá amigos estou com um banco de dados de mais de 3.000 e-mail o que acontece trabalho com o newletter e quando vou mandr e-mails fica muito lento e as vezes até da erro de envio como fazer para ficar mais rapido sera que existe a possibilidade

[Prog]

Acredito que este problema não esteja diretamente relacionado a velocidade do banco de dados, mas sim ao sistema num todo...

Talvez a forma como vc faz o envio da newsletter deva ser reavaliado. Alguns servidores limitam o uso de um determinado recurso ou colocam timeout em determinados serviços, se vc passa muito tempo executando um determinado recurso, o próprio servidor se envarrega de "encerrar" a conexão, isto evita problemas no servidor.

[leanjo]

eu tb tenho um sistema de newsletter...
como que sites grandes e que nao sao servidores proprios enviam newsletter em grande quantidade sem esse problema?

valeu

[Agente Linhares]

é..um cara outra vez falo q tava havendo o msm com ele. parece q indicaram a ele dividir de tantos e tantos mails p/ enviar

[leanjo]

é verdade
uma vez fui mandar uma newsletter e travou a xxxxxx toda.
tem alguma diferenca em news com access ou mysql? o envio fica mais eficaz de acordo com o bd?

[Matrix2003]

leanjo não tem como passar para mim este newletter teu que não da este tipo de problema coloca para download

[Prog]

A listagem de um unico campo de uma unica tabela não vai melhorar nem piorar o rendimento do seu sistema estando em Access ou MySQL, desejando que exista, pelo menos um, campo indexado.

Como comentado anteriormente, a performance deste processo depende do sistema num todo...

Não tenho nenhum newslatter pronto, mas o tivesse, faria desta forma:

- executar o select na tabela dos emails;
- enviar uma quantidade limitada, vamos supor, 10 emails;
     - este item só funciona o envio de vários simultaneos se os emails não forem personalizados, por exemplo, com o nome do cliente;
- gravar em uma tabela temporária, os emails que já foram enviados, somente para certificar no caso de ocorrer algum problema;
     - caso um problema venha a ocorrer, basta prosseguir somente com os usuários que ainda não estão na tabela temporária;
- termina a execução;

Isto faria com que o sistema ficasse mais lento, porém, mais confiavel.

Edição feita por: Prog, 16/10/2004, 16:56.

[leanjo]

o meu tb trava
foi como o prog falou, o probl pode nao ser do bd

vamos ver se alguem tem mais alguma informacao

[Matrix2003]

Então de uma olhada neste codigo

<!--#include file = "config.asp"-->
<%
'Abre a conexao com o banco de dados
Set Conex = Server.CreateObject ("ADODB.Connection") 
Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("../database/dados.mdb")

'Pega os dados digitados no form
assunto = request("assunto")
mensagem = request("mensagem")

'Faz a listagem dos usuarios para pegar o nome
Set listar = Server.CreateObject("ADODB.Recordset")
sql = "Select * from usuarios"
listar.open sql, conex, 1,1

'Faz um while
while not listar.eof

'Pega o nome e o email do usuario
Set nome = Server.CreateObject("ADODB.Recordset")
sql = "Select * from usuarios where id="&listar("id")
nome.open sql, conex, 1,1

while not nome.eof
'envia o e-mail
	Set objmail = Server.CreateObject("CDONTS.NewMail") 
  objmail.from = nome_admin & "<"&email_admin&">"
  objmail.to = nome("email")
  objmail.subject = assunto
  objmail.body = "Olá <b>"& nome("nome") & "</b><br><br>&nbsp;&nbsp;&nbsp;&nbsp;" & mensagem
  objMail.Bodyformat = 0
  objMail.MailFormat = 0
	objmail.send
	
'Move para o próximo registro
nome.movenext
wend

listar.movenext
wend

'Exibe a mensagem de que os emails foram enviados com sucesso
response.Write("Os e-mails foram enviados com sucesso.")
%>

Preciso mudar algo

[Prog]

Não há a necessidade destes 2 whiles, com apenas 1 seria possivel fazer o envio da sua newslatter.

...
'Faz a listagem dos usuarios para pegar o nome
Set listar = Server.CreateObject("ADODB.Recordset")
sql = "Select * from usuarios"
listar.open sql, conex, 1,1

'Faz um while
while not listar.eof
'Pega o nome e o email do usuario
Set nome = Server.CreateObject("ADODB.Recordset")
sql = "Select * from usuarios where id="&listar("id")
nome.open sql, conex, 1,1

while not nome.eof
'envia o e-mail
Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.from = nome_admin & "<"&email_admin&">"
objmail.to = nome("email")
objmail.subject = assunto
objmail.body = "Olá <b>"& nome("nome") & "</b><br><br>&nbsp;&nbsp;&nbsp;&nbsp;" & mensagem
objMail.Bodyformat = 0
objMail.MailFormat = 0
objmail.send

'Move para o próximo registro
nome.movenext
wend

listar.movenext
wend
...

somente este código resolve

...
Set nome = Server.CreateObject("ADODB.Recordset")
sql = "Select * from usuarios"
nome.open sql, conex, 1,1

[COLOR=red]while[/COLOR] not nome.eof
'envia o e-mail
Set objmail = Server.CreateObject("CDONTS.NewMail") 
 objmail.from = nome_admin & "<"&email_admin&">"
 objmail.to = nome("email")
 objmail.subject = assunto
 objmail.body = "Olá <b>"& nome("nome") & "</b><br><br>&nbsp;&nbsp;&nbsp;&nbsp;" & mensagem
 objMail.Bodyformat = 0
 objMail.MailFormat = 0
objmail.send

'Move para o próximo registro
nome.movenext
wend
...

ps.: este é somente 1 dos problemas, mas este era um problema realmente muito importante, os outros problemas são apenas na forma de fazer a coisa acontecer, isto vai de programador p/ programador.

[Matrix2003]

paresse que fiquei mais confudido com esta esplicação não tem como postar o codigo inteiro mudado

[Prog]

Código inteiro:

<!--#include file = "config.asp"-->
<%
'Abre a conexao com o banco de dados
Set Conex = Server.CreateObject ("ADODB.Connection") 
Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("../database/dados.mdb")

'Pega os dados digitados no form
assunto = request("assunto")
mensagem = request("mensagem")

'Pega o nome e o email do usuario
Set nome = Server.CreateObject("ADODB.Recordset")
sql = "Select * from usuarios"
nome.open sql, conex, 1,1

Set objmail = Server.CreateObject("CDONTS.NewMail")
while not nome.eof
'envia o e-mail
 objmail.from = nome_admin & "<"&email_admin&">"
 objmail.to = nome("email")
 objmail.subject = assunto
 objmail.body = "Olá <b>"& nome("nome") & "</b><br><br>&nbsp;&nbsp;&nbsp;&nbsp;" & mensagem
 objMail.Bodyformat = 0
 objMail.MailFormat = 0
objmail.send

'Move para o próximo registro
nome.movenext
wend
Set objmail = null

'Exibe a mensagem de que os emails foram enviados com sucesso
response.Write("Os e-mails foram enviados com sucesso.")
%>

ps.: alterei a posição da linha Set objmail = Server.CreateObject("CDONTS.NewMail") e inclui a linha Set objmail = null somente para facilitar a vida do sistema operacional.

[Matrix2003]

prog veja só deu este erro

error '80040108'
/email/admin/enviar_email.asp, line 18

[Prog]

O que exatamente tem na sua linha 18? O código esta identico ao que eu postei?? Sem colocar nem tirar nenhuma linha???

[Matrix2003]

cra sem tirar e sem colocar do mesmo jeito que você colocou e só tem isto na folha a linha 18 é só contar