Sub Mail_workbook()

ActiveWorkbook.SendMail "[email protected]", _

"This is the Subject line"

End Sub

Если вы хотите отправить книгу, в которую помещен код, вы должны использовать следующую строку:

ThisWorkbook.SendMail "[email protected]", _

Примечание. Это не обязательно должна быть активная книга, которая использовалась в то время.