Ritardare avvio di un processo

[lorenzo82]

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "server"
Flds(cdoSMTPServerPort) = "25"
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = "email"
.From = "email"
.Sender = "email"
.Subject = "oggetto"
.TextBody = "testo"
.Send
End With