Ir para conteúdo

POWERED BY:

Arquivado

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

silas_i

aspemail

Por , em ASP Clássico

Recommended Posts

silas_i    0

silas_i
Postado

Pessoal eu desenvolvi um sistema de newsletters em ASPEMAIL, vejam o código abaixo:

 

<%	' change to address of your own SMTP server	strHost = "mail.dominio.com.br"  Set Mail = Server.CreateObject("Persits.MailSender")  ' enter valid SMTP host  Mail.Host = strHost	' Body in HTML format    strHTML = strHTML & ""&(conteudo.Fields.Item("conteudo").Value)&"" & chr(13) & chr(10)    strHTML = strHTML & "<div align=""left""><strong><font size=""-2"" face=""Verdana, Arial, Helvetica, sans-serif""><p> ----------------------------------------------------------------------------------------<br>SITE<br><a href=""http://www.sites.com.br""><font color=""#000000"">http://www.site.com.br</font>" & chr(13) & chr(10)  Mail.From = "email@dominio.com.br ' From address  Mail.FromName = "Quantum - Segurança e Conforto Automotivo" ' optional' read address from DB and put them in the BCC field  While not rs02.EOF 	 Mail.AddBcc (rs02.Fields.Item("email").Value) 	 rs02.MoveNext  Wend  Mail.Subject = (conteudo.Fields.Item("subject").Value)  Mail.IsHTML = True        Mail.Body = "<HTML><BODY><CENTER>" & strHTML & "</CENTER></BODY></HTML>"        Mail.Send	' send message  response.redirect "enviado.asp"
Minha pergunta é: Qdo tento enviar ele dá o seguinte erro:

 

Persits.MailSender.4 error '800a0006'

 

552 Too many recipients

 

Eu estava lendo algumas documentações sobre o assunto e vi que dessa forma ele envia até 50 emails, só que eu tenho na faixa de uns 300.

 

Como fazer pra enviar !? Seria por blocos !? Não sei como resolver isso..

 

Desde já obrigado pela atenção,

 

Abraço

 

Silas

Compartilhar este post

Link para o post
Compartilhar em outros sites

Aeglos    0

Aeglos
Postado

Manda individualmente, é mais pesado pro server, mas funca:

 

<%' change to address of your own SMTP serverstrHost = "mail.dominio.com.br" Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost' Body in HTML format   strHTML = strHTML & ""&(conteudo.Fields.Item("conteudo").Value)&"" & chr(13) & chr(10)   strHTML = strHTML & "<div align=""left""><strong><font size=""-2"" face=""Verdana, Arial, Helvetica, sans-serif""><p> ----------------------------------------------------------------------------------------<br>SITE<br><a href=""http://www.sites.com.br""><font color=""#000000"">http://www.site.com.br</font>" & chr(13) & chr(10)While not rs02.EOF Mail.From = "email@dominio.com.br ' From address Mail.FromName = "Quantum - Segurança e Conforto Automotivo" ' optional' read address from DB and put them in the BCC field  Mail.AddBcc (rs02.Fields.Item("email").Value) Mail.Subject = (conteudo.Fields.Item("subject").Value) Mail.IsHTML = True       Mail.Body = "<HTML><BODY><CENTER>" & strHTML & "</CENTER></BODY></HTML>"       Mail.Send ' send message  rs02.MoveNext Wend response.redirect "enviado.asp"%>

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