[Resolvido] newsletter - Aspemail - Mail.Queue

[Jr - Santos 0]

Boa tarde a todos,

 

Gostaria de uma grande ajuda pois to no comecinho desse negocio de asp, rs

 

Estou tendo problemas quando tendo enfileirar as msgs usando a propriedade:

Mail.Queue = true

ou

Mail.Timestamp = now()

Mail.Queue = True

 

mas não funciona, localmente uso o emailagent como gerenciador e funciona perfeitamente, mas quando envio a pagina para hospedagem,(no caso a locaweb) da pau. Preciso mudar ou pedir que mudei alguma configuração no servidor onde meu site esta hospedado ou não tenho como fazer isso?

 

se tiver como fazer, posso definir e gerenciar, alguma pasta nesse servidor onde esses e-mail's serão enfileirados?

 

Abraços!

[dark0 0]

a primeira pergunta.. a locaweb possui aspemail instalado? é a mesma versão de seus testes locais ?

[Jr - Santos 0]

Grande Dark0,...

 

Tem sim cara, funciona quando não uso essa propriedade, mas o problema, é que, minha maladireta tem uns mil contatos(e-mail's cadastrados) quando clicava em enviar, gerava lentidão para o servidores da locaweb, e com isso alguns e-mails retornavam, mas enfileirando as msgs, acredito que não terei esse problema mais...

[dark0 0]

estranho..

confesso que nunca vi um componente permitir enfileirar as mensagens..

 

Geralmente, o que faço é envio em etapas..

 

Por ex.. envia para 100 contatos.. dá um tempo, envia pra + 100.. e por aí vai....

 

Teria que dar uma analizada nas propriedades deste componente para encontrar a solução..

 

Deve ter em alguma parte do gerenciador do componente, o local onde você define o caminho da fila..

 

POrém, terá que ver se o suporte irá liberar este diretório para você..

[Jr - Santos 0]

estranho..

confesso que nunca vi um componente permitir enfileirar as mensagens..

 

Geralmente, o que faço é envio em etapas..

 

Por ex.. envia para 100 contatos.. dá um tempo, envia pra + 100.. e por aí vai....

 

Teria que dar uma analizada nas propriedades deste componente para encontrar a solução..

 

Deve ter em alguma parte do gerenciador do componente, o local onde você define o caminho da fila..

 

POrém, terá que ver se o suporte irá liberar este diretório para você..

 

Isso mesmo Dark0,

 

to tentando ver com os caras la da locaweb, mas esses caras são enrrolados velhoooo..

 

qualquer novidade posto aqui, obrigado!!

[Jr - Santos 0]

Cara, mas uma coisa.. como eu faria isso no meu script? essa rotina seria independente do componente né...

[Ted k' 126]

Olá Jr - Santos, leia atentamente as regras do fórum...

 

se continuar dando UP nos tópicos, terei que agir com rigor, tenha paciência que os usuários que obtem o conhecimento para a sua questão vão te auxiliar!

 

Fiz uma vez com o pessoal da locaweb, realmente demora, mais não obtive problemas, desse mesmo modo do dark0, e só aconteceu de demorar de chegar os e-mails!

[Jr - Santos 0]

Boa tarde Ted k' , obrigado, mas não tentei burlar o forum...sou novo aqui e achei que a pagina tava travada quando respondi,dai cliquei varias vezes, minha resposta apareceu 3 vezes, as duas ultimas editei e tirei o texto pra nao ficar estranho... sobre sua resposta... você fez uma rotina para esse envio, ou usou as propriedades do componente? como ficaria?

 

Abraço!

[dark0 0]

Jr

 

É uma rotina sim.. seguindo a lógica de paginação.. de tal forma que você vai enviando como se estivesse paginando dados vindos de uma consulta ao banco..

[Jr - Santos 0]

Obrigado pela ajuda pessoal...

 

Dark0,

entendi, vou fazer uma pesquisa sobre lógica de paginação, pra descobri como fazer para utilizar essa lógica nesta newsletter, mas outra duvida, qual seria a contagem ideal para essa paginação, de 100 em 100 e-mails, o meu smtp pode entrar em listas de rbl né?,

 

Ted'k,

você que utiliza essa propriedade, qual seria a ideal pra quem vai utilizar o proprio smtp?

[xanburzum 169]

uma dica, tem um ótimo code no lab. de scripts que envia email paginando a quantidade e salvando os k foram enviados, para você ter a info dos k foram enviados, verifique com o host, se esta tudo configurado corretamente, tb

[Jr - Santos 0]

grandeeeee xanburzum, Obrigado ainda não testei, mas valeu pela dica

[xanburzum 169]

beleza, surgindo duvidas , posta ae...

[Jr - Santos 0]

beleza, surgindo duvidas , posta ae...

 

Boa tarde pessoal,

 

usava o componente aspemail localmente pra testar essa aplicação, mas o componente expirou, existe alguma versão free? o que vcs usam pra testar suas aplicações localmente? ou ja fazem utilizando a hospedagem?

 

Abraços!

[xanburzum 169]

usa o CDOSYS

[Jr - Santos 0]

tem razão xanburzum, simples e objetivo... mas tem um porém, sou iniciante..rs mas resolvi usar a hospedagem mesmo pra outros testes..., com outra pagina de teste, pra enviar so pra mim,... mas pra nao perder o foco no post, falei com pessoal da localweb e realmente no servidor onde minha aplicação esta hospedadao não tem o emailagent instalado, então realmente a minha solução é paginar o envio, usando a ajuda de vcs... vendo o modelo do xanburzum.... fiz esse funciona bem:

 

Server.ScriptTimeout = 180 

Const PAGE_SIZE = 20
Dim strSQL ' string SQL
Dim iPagina ' string para Pagina Corrente
Dim iNumPagina ' string para contar números de paginas do recorset
Dim iNumEncontrado ' string do contador
Dim I ' variável de indica a página atual
Dim Cont , num
dim contador
contador = 0
Dim objWinHttp
Dim strHTML

If Request.QueryString("page") = "" Then ' Abertura inicial
	iPagina = 0
Else
	iPagina = CInt(Request.QueryString("page"))
End If

if iPagina > 0 then

 set cn = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.RecordSet")
  StrSql = "Select distinct razao, email from dbo_V_EMPRESA_EMAIL where indNoticias = 'S' order by razao"
  rs.PageSize = PAGE_SIZE
  rs.CacheSize = PAGE_SIZE
  rs.CursorType = 3
  rs.Open strSQL, Cn

  iNumEncontrado = rs.RecordCount
  iNumPagina = rs.PageCount
  rs.AbsolutePage = iPagina

  if iNumEncontrado < 1 then Response.End()

	do while not rs.eof And rs.AbsolutePage = iPagina

		contador = contador + 1


On Error Resume Next
			Response.Write ("<div align='justify'><font face=verdana size=1>")
			Response.Write("E-mail enviado para :")
			Response.Write(rs("razao")&" - "&rs("email"))
			Mail.Send

		If Err <> 0 Then
			Response.Write("</u> status: <font color=red> <strong>FALHOU </strong></font></div>")
		else
			Response.Write("</u> status: <font color=red> <strong>OK</strong> </font></div>")
		End If

	    rs.MoveNext

Set Mail = Server.CreateObject("Persits.MailSender")
probriedados do aspemail....


response.write "Páginas: "
	For I = 1 To iNumPagina
		If I = iPagina Then
			response.write "[" & I & "]"
		Else
 		if i = 1 then
				num = 0
			else
				num  = I * 100
			end if
			Response.Write ("<a href=pagina_atual.asp?data="& data &"&cont="& num &"&page="& I &">"& I &"</a> ")
		End If
	Next

rs.close()
Set rs=nothing
Cn.Close()
Set Cn = nothing

Set Mail = Nothing

 

 

OBrigado pessoal..

Abraços!

[xanburzum 169]

parbens, e precisando tamu ae...