Send mail hver 10. minut via SMTP med VB6

Hvad med at lave en EXE som sender en email og afslutter - og så køre den EXE hver 10. minut med Windows scheduler.

Nu har jeg ingen erfaring med Visual Basic, men det kunne måske gøres således (generel kode):

funktion loop {
    //Masser af kode
    timer(loop, 10:00);
}

loop();

Hvis der fast skal sendes en mail hver 10. min hele tiden, er det bedre at du opretter en opgave i Opgavestyring i Windows.
Hvis du løser det med kode i dit program, risikerer du, at programmet støder på en fejl og stopper og bliver der ikke sendt flere mails fremover. Hvis du opretter det som en opgave, bliver programmet startet fast hver 10. min (det er vel et simpelt lille program, så det gør ikke noget); går programmet ned med fejl misser du blot en enkelt e-mail.

Men jeg skal lige høre; er det et Visual Basic program eller et VBS script?

God morgen!

arne_v og mrgumble -> Visual Basic 6.0 (det gamle) forlaget løser ikke peroblemt, men argumentation omkring fejl er god.

Kimsey0 -> jeg bruger Timer-funktionen, loop ændre ikke på problemet.


Hilsen Morten

Forlaget???
Hvad er der galt med at lave opgave styring?

Timer-enheden i VB6 mindes jeg, kan max tage ca. 65 sekunder (65 535 microsekunder).
Så løsningen er, at du sætter din timer til 60 sekunder og spørger om der er gået 10 min siden sidst. Det er skrevet i følgende pseudo-kode:

Dim LastEvent as Date/Time 'Skal være en global variabel

Sub Timer()

If LastEvent + 10*60 seconds < Now() Then
  Call SendEmail
  LastEvent = Now()
End If
End Sub

Jeg har lagt en loop ind før timeren så timeren kører 10 gange 60 sec. før den sender.

jeg har også forsøgt uden loop og prøvet at sende hver 30 sec., jeg har lavet en counter der skriver i en text-bos, så jeg kan følge med. Tælleren starter fint forfra hver gang der er gået de 30 sec.

jeg har også forsøgt If counter = 30 Then send

jeg er 99% sikker på at det er ikke timeren/counter der er problemet.

opgivwt