Inviare una MAIL POSTICIPATA

La procedura seguente consente di inviare una mail ad un certo indirizzo in maniera POSTICIPATA alla data ed ora indicate in DeferrededDeliveryTime.

L'uso della Procedura da VBA richiede l'installazione del Software REDEMPTION per l'invio delle mail bypassando il controllo AntiSpam di Outlook.

Private Sub InviaMailRitardata()
Dim objItem As Outlook.MailItem
Dim SafeItem As SafeMailItem

Set objItem = Application.CreateItem(olMailItem)

objItem.DeferredDeliveryTime = Now + TimeSerial(0, 5, 0) ' Posticipa l'invio tra 5 minuti

'Mail per il risveglio
objItem.To = "MyMAIL@MYDOMAIN.COM" 'Indirizzo mail cui inviare

Set SafeItem = New SafeMailItem
SafeItem.Item = objItem
SafeItem.Subject = "Soggetto della mail"
SafeItem.Recipients.ResolveAll
SafeItem.Send

Set objItem = Nothing
Set SafeItem = Nothing

End Sub