Código: Seleccionar todo
While _NowTime() < '19:25:00' ;Mientras no sean las 19:25 de la tarde el proceso estará funcionando
$msg = TrayGetMsg()
Select
Case $msg = 0
$gEstado = "Enviando"
TraySetToolTip("Estado: " & $gEstado & @CRLF & " Emails enviados: " & $gI )
$Body = "Este es un email enviado de forma automática para generar la consulta de la cuenta mfarrugia en la cuenta de gmail" & @CRLF & " Hora envío: " & @MDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & ":" & @MIN ; the messagebody from the mail - can be left blank but then you get a blank mail
pEnvioMail($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
$gI = $gI + 1
$gEstado = "Esperando"
TraySetToolTip("Estado: " & $gEstado & @CRLF & " Emails enviados: " & $gI )
Sleep(600000)
Case $msg = $gSalir
ExitLoop
EndSelect
WEnd