[Excel] inviare mail

[taurex]

Buongiorno, ho creato un codice per inviare via mail un file da excel.

Codice: Seleziona tutto

Set thisMailItem = OutL.CreateItem(olMailItem)
     thisMailItem.To = ActiveSheet.Range("b14")
     thisMailItem.Subject = GetBoiler(oggetto)
     thisMailItem.Body = GetBoiler(testo)
     Set allegato = thisMailItem.Attachments
     allegato.Add Percorso & "5322.xls"
     thisMailItem.Send
     Set thisMailItem = Nothing

Funziona tutto
il problema è che quando si aggancia il .Send mi comapare un messaggio [Un programma sta tentando di inviare automaticamente la posta elettronica. Consentire l'operazione? SI NO ?]

io dopo 5 secondi premo SI e lui prosegue.
Vorrei sapere se c'è un modo per evitare il messaggio o perlomeno l'interazione.
Ho provato con

Codice: Seleziona tutto

Application.SendKeys "%S"

ma il problema è che dovrei far aspettare 5 secondi prima di lanciarlo e non so come fare.

[taurex]

risolto:

Codice: Seleziona tutto

 thisMailItem.Display
     'thisMailItem.Send
     Application.Wait Now + TimeValue("00:00:01")
     Application.SendKeys "^~"
     Set thisMailItem = Nothing