19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Public Sub Timer1_Timer() If Str(Time(Now)) = "15:14:00" Then InviaEmailEnd
Prova questo codice.Codice: [Seleziona]Public Sub Timer1_Timer() If Str(Time(Now)) = "15:14:00" Then InviaEmailEnd
Se si esegue il programma allegato, mostra "/ "?
Public Sub Timer1_Timer() Dim sTempo As String = Str(Time(Now)) sTempo = Trim(Replace(sTempo, "/", "")) If sTempo = "17:29:00" Then InviaEmailEnd
If Format$(Now, "hh:nn:ss") = "21:44:10" Then InviaEmail
Non capisco perché stia succedendo questo.
Credo che la mia soluzione superi il problema.
Ho provato ancheCodice: [Seleziona] If Format$(Now, "hh:nn:ss") = "21:44:10" Then InviaEmail
secondo me questa e' formalmente piu' corretta