Ir para conteúdo

POWERED BY:

Arquivado

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

Web Design Valdeci

[Resolvido] Colocar tempo de envio de mensagens

Por , em ASP Clássico

Recommended Posts

Web Design Valdeci    0

Web Design Valdeci
Postado

Boa Tarde Pessoal,

 

Enviei esta pergunta abaixo mas ninguem me respondeu, tenho uma sistema de envio de mala direta utilizando cdonts , gostaria de saber se tem como temporizar o envio, tipo de 4 em 4 segundos enviar, pois ele já envia de um por um.

 

Abaixo o código:

 

 

<%
'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

hargon    64

hargon
Postado 

<%

response.AddHeader "Refresh","5; URL=arquivo.asp"

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

onde voce colocou?

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado 

<%

'Resgata valor checkbox separados por vírgula.

strP = request("email")

i = request("i")

if not isnumeric(i) then : i = 0 : end if

 

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

 

if i <= UBound(ArrP) then

'Faz o loop para enviar até que dispare todos os selecionados.

while i <= 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

 

i = i + 1

 

if i <= UBound(ArrP) then

response.AddHeader "Refresh","2; URL=arquivo.asp?email="&strP&"&i="&i

end if

 

'Fim loop.

wend

end if

 

'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

hargon    64

hargon
Postado

Não é necessário.

 

Já utilizei da forma acima e funciona.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Dois segundos.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

muito bom entao

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