Sub Mail_workbook()

ActiveWorkbook.SendMail "[email protected]", _

"This is the Subject line"

End Sub

Se vuoi spedire la cartella di lavoro dove è inserito il codice devi usare la seguente riga:

ThisWorkbook.SendMail "[email protected]", _

Nota: non deve essere la cartella di lavoro attiva utilizzata in quel momento.