(excel) invio file a un certo orario

[gio969]

ciao a tutti
ho trovato questa istruzione in rete molto utile. vorrei che partisse a un determinato orario.
qualcuno mi può aiutare?
Dim OlApp As New Outlook.Application
'riferimento a un Oggetto E-Mail nel Outlook
Dim myMailItem As Outlook.MailItem

'creazione
Set OlApp = CreateObject("Outlook.Application")
Set myMailItem = OlApp.CreateItem(olMailItem)

With myMailItem
'Soggetto
.Subject = "Soggetto"
'allegato
.Attachments.Add ""
'destinatario della mail
.To = ""
'corpo del messaggio
.Body = "prova"
'mettere l'indirizzo email del mittente (deve essere presente nei contatti)
.SentOnBehalfOfName = ""
'spedisce
.Send
End With
'destruzione del riferimento
Set OlApp = Nothing
End Sub

[Anthony47]

Ciao e benvenuto nel forum.

Prepara una macro che contiene qualcosa come

Codice: Seleziona tutto

Sub Pianifica()
Application.OnTime TimeValue("17:00:00"), "InviaMail"  '<<Il tuo orario, la tua macro
End Sub


Metti l' orario che preferisci e il nome della tua macro di invio mail; poi esegui la macro Pianifica e aspetta che arrivi l' ora impostata...

Ciao

[gio969]

grazie mille funziona bene!!