Problema invio mail tramite Excel

Hai un problema con Excel?

Nuova discussione

Problema invio mail tramite Excel
di Sbizzy data: 23/10/2015 11:30:36
Buongiorno a tutti,

tempo fa avevo cercato e trovato un modo per mandare mail tramite Excel. Ha sempre funzionato ma con il comando .Send Outlook richiede il consenso all'invio della mail. Siccome vorrei evitare questo inconveniente (non tanto per il fastidio, ma perché per una serie di motivi, chi genera l'invio non deve accorgersi di averlo fatto!), ho trovato una soluzione semplice con cui si usa il comando .Display e il comando Application.SendKeys "%i" in cui %i corrisponde ad alt+i ovvero invia mail. In questo modo la mail viene mandata senza richieste di Outlook.

Dopo due o tre test mi sono accorto di un inconveniente singolare: ogni volta che eseguo la macro, il mio tastierino numerico risulta disattivato e devo sbloccarlo!!!! Cosa può causare questo problema?

Di seguito la macro. Grazie in anticipo. Ciao.

PS: ho notato solo ora che l'operazione abilita anche la funzione "ins"!

Sub spedire()
Dim OlApp As New Outlook.Application
Dim myMailItem As Outlook.MailItem

Set OlApp = CreateObject("Outlook.Application")
Set myMailItem = OlApp.CreateItem(olMailItem)

With myMailItem
 .Subject = "CERTIFICATO"
 .To = Range("b10").Value
 .Body = Range("a13").Value
 .Display
End With

Set OlApp = Nothing
Application.SendKeys "%i"

Range("B1:B7").ClearContents 'pulisce i dati che generano il body della mail
Range("B1").Select

End Sub

Vuoi Approfondire?