Sub Mail_workbook()

ActiveWorkbook.SendMail "[email protected]", _

"This is the Subject line"

End Sub

Si desea enviar por correo el libro de trabajo donde se coloca el código, debe utilizar la siguiente línea:

ThisWorkbook.SendMail "[email protected]", _

Nota: No es necesario que sea el libro de trabajo activo que se usa en ese momento.