TEMPO PARA ENVIO!

NETBRFAKES 11/11/2013 16:14:41
#430988
Ola , estou fazendo um programa para envio de emails , para meus clientes
porem eu gostaria de colocar um tempo , para envio ex

Envia 10 emails, e para de enviar
espera em tempo ex 10 minutos,
e envia mais 10 emails, e assim por diante
alguem poderia me ajudar a fazer isso?
GUIMORAES 11/11/2013 16:26:10
#430989
Coloca um sleep com o tempo desejado.

Threading.Thread.Sleep(1000)

Ou um timer.
NETBRFAKES 11/11/2013 16:41:19
#430992
Mas ai como eu definiria a quantidade e ameils e o tempo?

ex,

Combobox tempo , 10 minutos 5 minutos 15 minutos

combobox quantidade , 10 emails 5 emails 15 emails?

Desculpe a minha burice, rs mas to programando a pouco mais
de um mes, e ainda nao entendo direito a logica!
NILSONTRES 11/11/2013 19:02:37
#430996
Vou dar uma dica basica, coloca a sua função que envia os emalis dentro de um timer.
cria uma variavel publica, exemplo:Public HoraEmail as datetime

ao final dessa função, ou seja quando os dez emails forem enviados, vc seta a variavel assim HoraEmail=dateadd(minutos,10,now)
mais ou menos isso.

Então dentro do seu timer ficari assim:
If Now=HoraEmail then
enviaemail
end if
NETBRFAKES 11/11/2013 23:13:02
#431004
Entendi nada rs
mas vlw
NILSONTRES 11/11/2013 23:56:26
#431006
Então, aprenda primeiramente sobre como manipular data e hora, datediff, dateadd etc...
Aprenda como manipular o controle Timer, tera meio caminho andado, a partir dai use a sua criatividade.
NETBRFAKES 12/11/2013 00:06:05
#431008
Cara e isso que to fazendo aprendendo, como eu coloquei no topico, eu to mechendo com VB a pouco mas de 1 mes!
ja aprende muito aqui principalmente graças ao

http://www.vbmania.com.br/pages/index.php?varModulo=Perfil&varUID=61387


que me mostro o caminho varias veses aqui!

Vlw abraços
PEGUDO 12/11/2013 09:00:23
#431012 Resposta escolhida
Cara,
Na verdade o Timer, realmente, lhe seria muito útil.
Se você reparar 1000 milisegundos equivalem a 1 segundo, então 1 minuto tem 60 segundos X 1000 milissegundos = 60000 milisegundos.

A partir daí você começa a deduzir:
Se 1 minuto = 60.000 milisegundos
Então
5 minutos = 5 X 60.000 milissegundos = 300.000 milissegundos
e
10 minutos serão iguais a 10 X 60.000 = 600.000 milissegundos

Então se você colocar 600000 milissegundos no Interval do Timer, o código dentro dele só será executado a cada 10 minutos, que é o tempo indicado no Interval.

Algo como:
Private Sub Timer1_Tick(...
    Timer1.Enable = False

    For A = 0 to 9
        [txt-color=#007100][ô]Envia 10 emails[/txt-color]
    Next

    Timer1.Enable = True
End Sub
NETBRFAKES 12/11/2013 11:28:39
#431022
Hum acho que entendi agora a logina
meu envio e feito por um PHP

o programa apenas coloca os emails e a propaganda
entao ta facil
eu crio uma funcao ex;

10 emails a cada 10 minutos

5 emails a cada 10 minutos

e add em um combobox

vou fazer o codigo e posto o resultado aqui , vlw
me salvando como sempre heehe!
NETBRFAKES 12/11/2013 12:04:45
#431028
Ola, eu fiz assim





    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        minutos5.Interval = TextBox1.Text


        minutos5.Enabled = False

  [ô]Quantidade aqui

        minutos5.Enabled = True
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        For A = 0 To 9
            [ô]Envia 10 emails
        Next
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        For A = 0 To 19
            [ô]Envia 20 emails
        Next
    End Sub





Agora queria saver como selecionar pra tentro do timer a checkbox que tiver selecionada com a quantidade de emails??
NETBRFAKES 12/11/2013 12:27:37
#431030
Consegui minha ultima divida agora e essa

definer a quantidade de emails a partir de um textbox

tentei

For A = 0 To = textbox1.txt
next

mas nao deu certo!

como eu posso fazer isso?
Página 1 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar