Ir para conteúdo

POWERED BY:

Arquivado

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

mows

Sub não funciona

Por , em ASP Clássico

Recommended Posts

mows    0

mows
Postado

Boa tarde pessoal, estou com uma problema num sub.

Eu to testando essa sub pra criar um delay no envio de mensagens de email num sistema de newsletter. Porém ela não está funcionando como deveria.

 

if not RsEmails.EOF then
	total = 0
				
	intSeconds = 10
				
	Sub Sleep ( intSeconds )
	dteStart = Time ( )
	dteEnd = DateAdd ( "s" , intSeconds, dteStart )
				
	While dteEnd > Time ( )
		 DoNothing
	Wend
				 
				
	while not RsEmails.EOF
									

	Set Mail = Server.CreateObject("Persits.MailSender")
				
	Mail.Host = ""
	Mail.Username = ""
	Mail.Password = ""
	Mail.From = " "&RsCategoriasEmail("email")&" "
	Mail.FromName = ""
	Mail.AddAddress RsEmails("email")
	Mail.Subject = Request("txtAssunto")
					
	Mail.IsHTML = True
	Mail.Body = "<HTML><BODY>"& strHTML &"</BODY></HTML>"
	Mail.Send
	total = total + 1
					
					
	RsEmails.MoveNext
					
					
					
	wend
				
	End Sub
				
	Sub DoNothing

	End Sub 
				 
	end if

Alguém poderia me ajudar, é a sintaxe, é a sub, o que é?!

Gostaria que ela fizesse um delay de 10segundos no envio de cada email.

 

Se alguém tiver alguma forma mais prática de fazer isso, eu agradeço.

 

Obrigado.

Abraços.

Compartilhar este post

Link para o post
Compartilhar em outros sites

augustoclaro    2

augustoclaro
Postado

Olá!

 

Use esta função que eu criei:

 

function sleep(tempo)
final = dateadd("s",tempo/1000,now())
do until now() = final
loop
end function

aí você passa o tempo em milissegundos:

 

response.write "Agora são 10:00:00"
response.flush()
sleep(60000)
response.write "Agora são 10:01:00"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Nesse caso como ele vai utilizar para uma rotina de e-mail, eu acho que irá sobrecarregar sim, mas isso depende, se ele não se importar com isso, ta tranquilo, apenas relatei pois isso acontece.

 

No meu caso eu contrataria um servidor de email marketing, em que seria utilizado aplicativos para o envio destes email, é bem mais prático.

 

Porém depende de caso pra caso.

 

[]'s

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