Ir para conteúdo

POWERED BY:

Arquivado

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

Web Design Valdeci

Será que meu servidor vai travar

Por , em ASP Clássico

Recommended Posts

Web Design Valdeci    0

Web Design Valdeci
Postado

Bom Dia Galera,

 

Andei pesquisando mas não achei coisas com este assunto. Tenho um código que envia mala direta minha para e-mails cadastrados em banco access. So tenho uma dúvida, será que após uns 50 e-mails cadastrados meu servidor vai travar ou meus e-mails vão cair em black list ao tentar enviar? Será q tem como colocar um formato onde o componente CDONTS envia de um por um os e-mails, tipo delimitar tempo entre envio de mensagens de 1 em 1 minuto?

Vou postar meu código que envia aqui se alguém puder me ajudar obrigado.

<%
'Resgata valor checkbox separados por vírgula.
strP=request.form("email")

ArrP=split( strP , "," ) 'No caso coloquei virgula, pois o separador é este, caso seja outro basta mudara para o desejado.

'Faz o loop para enviar até que dispare todos os selecionados.
for i = 0 to UBound(ArrP)
Set objmail = Server.CreateObject("CDONTS.NewMail") 

objMail.From = "email@meusite.com.br"
objMail.To = ArrP(i)
objMail.Cc = ""
objMail.Bcc = ""

objMail.Subject = "A internet mais próxima de você!"
sHTML = sHTML & "<html xmlns=""http://www.w3.org/1999/xhtml"">"
sHTML = sHTML & "<head>"
sHTML = sHTML & "<title>meusite</title>"
sHTML = sHTML & "</head>"
sHTML = sHTML & "<body leftmargin=""0"" topmargin=""0"" rightmargin=""0"" bottommargin=""0"" bgcolor=""#FFFFFF"">"
sHTML = sHTML & "<div align=""center""><a href=""http://www.meusite.com.br""><img src=""http://www.meusite.com.br/img.gif"" width=""600"" height=""564""border=""0"" align/></a></div>"
sHTML = sHTML & "</body>"
sHTML = sHTML & "</html>"

objMail.MailFormat = 0 
objMail.BodyFormat = 0 
objMail.body = sHTML

objMail.Send
sHTML = ""

On Error Resume Next
set objMail = Nothing

if Err <> 0 Then
Response.Write "Foi encontrado um erro (" & Err.Description & ")."
Response.End
End if

'Fim loop.
next
ObjRS.close

'Gera alerta de envio ao fim do código.
response.Write("<font face='verdana' size='1'>E-mails enviado com sucesso!</font><br>")
response.Write("<font face='verdana' size='1'>Para: "&strP&".</font>")
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

CDONTS não é mais utilizado, atualmente o CDOSYS o substituiu. O que pode acontecer não é travar o componente e sim o seu servidor te bloquear, dê uma pesquisada com o suporte para verificar o limite de envio de e-mails em massa.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Web Design Valdeci    0

Web Design Valdeci
Postado

CDONTS não é mais utilizado, atualmente o CDOSYS o substituiu. O que pode acontecer não é travar o componente e sim o seu servidor te bloquear, dê uma pesquisada com o suporte para verificar o limite de envio de e-mails em massa.

 

Fala Salgado obrigado pela resposta, mas será que não tem como neste componente colocar alguma coisa para ele enviar um por um a cada 4 segundos, tenho um código pronto em php assim mas php nao manjo nada... Será q tem jeito. valeu

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