Thursday, April 27, 2006

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


3 comments:

Anonymous said...

quello che stavo cercando, grazie

Anonymous said...

leggere l'intero blog, pretty good

Anonymous said...

La ringrazio per intiresnuyu iformatsiyu