Salve ancora a tutti, dovrei trovare un modo per eseguire l'invio in automatico da access di una mail indirizzata ai fornitori per gestire gli ordini (e fin qua nessun problema), però vorrei trovare il modo di eseguire questa operazione solo il venerdì alle 12.00.
C'è un modo per farlo senza usare infiniti cicli di timer?
Io sono riuscito a pensare a questa soluzione
Dim Data, Giorno
Data = Date
Giorno = Weekday(Data)
If Giorno = 6 Then
Dim ora As Date
ora = Hour(Time()) & ":" & Minute(Time()) & ":" & Second(Time())
If ora Like "11:17:00" Then
If Me.Quantità < 300 Then
DoCmd.SendObject acForm, "msc_qry_magazzino_punte", "PDFFormat(*.pdf)", "pippo@gmail.com", "Invio nuovo ordine", "Buongiorno, alleghiamo nuovo ordine come da pdf allegato.", True, ""
End If
End If
End If
però è un pò troppo macchinosa e non vorrei avere il timer che continua a ciclare per niente tutti i giorni.