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