Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel] inviare mail

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[Excel] inviare mail

Postdi taurex » 09/08/06 09:35

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
Utente Senior
 
Post: 145
Iscritto il: 09/08/06 09:34
Località: Asti

Sponsor
 

Postdi taurex » 09/08/06 10:18

risolto:
Codice: Seleziona tutto
 thisMailItem.Display
     'thisMailItem.Send
     Application.Wait Now + TimeValue("00:00:01")
     Application.SendKeys "^~"
     Set thisMailItem = Nothing
taurex
Utente Senior
 
Post: 145
Iscritto il: 09/08/06 09:34
Località: Asti


Torna a Applicazioni Office Windows


Topic correlati a "[Excel] inviare mail":


Chi c’è in linea

Visitano il forum: alfrimpa, giorgio1979 e 10 ospiti