Adicionando intervalo no envio de e-mails - Tecnologias

Tecnologias

Assuntos diversos ligados à tecnologia.

Syndication

Receive Email Updates



Adicionando intervalo no envio de e-mails

Recebi algumas consultas se seria possível adicionar um intervalo no envio dos e-mails de meu post anterior.

Sim, claro que é possível, basta inserir este pequeno código nas macros.

 

Private Declare Sub AppEspera Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Public Sub Pausa(PausaEmSegundos As Long)

Call AppEspera(PausaEmSegundos * 1000)

End Sub

Para chamar ele de se script, adicione o texto abaixo no local onde deseja adicionar a pausa:

Pausa 3 ‘ Sendo que o número será a quantidade de segundos que deseja em pausa

Na verdade este código serve para adicionar um intervalo na execução de qualquer código, não apenas no envio de e-mails!

Published sexta-feira, 1 de março de 2013 17:05 by Paleo

Filed under:

Comments

# re: Adicionando intervalo no envio de e-mails@ sábado, 9 de março de 2013 0:18

Obrigado Paleo. Sanou minha dúvida!

Matheus Lopes

# re: Adicionando intervalo no envio de e-mails@ terça-feira, 30 de abril de 2013 15:04

Caro carlos

Não consegui adicionar o intervalo, vc pode me mandar por email como fica o texto  completo com a pausa de 10 segundos?

meu email: doloresbsouza@hormail.com

Aguardo resposta

Dolores

Dolores

# re: Adicionando intervalo no envio de e-mails@ sexta-feira, 3 de maio de 2013 18:13

Caro professor

Não entendi em que parte vai o código nas macros, se poderes explicar agradeço.

Osmar

Osmar

# re: Adicionando intervalo no envio de e-mails@ domingo, 26 de maio de 2013 23:14

@Osmar, dentro do laço for, antes do next.

Basta colocares o código acima no topo, antes do resto todo, aí antes do next colocas:

Call Pausa(300)

Paleo

# re: Adicionando intervalo no envio de e-mails@ domingo, 26 de maio de 2013 23:27

Dolores, veja a explicação que postei para o Osmar.

Paleo

Leave a Comment

(required) 
(required) 
(optional)
(required)