Отправка письма из Excel

https://www.youtube.com/watch?v=x7At5hkOQeQ

Sub SendWorkbook()

    ActiveWorkbook.SendMail Recipients:="vasya@pupkin.com", Subject:="Лови файлик"

End Sub

 

Sub SendSheet()

    ThisWorkbook.Sheets("Лист1").Copy

    With ActiveWorkbook

        .SendMail Recipients:="vasya@pupkin.com", Subject:="Лови файлик"

        .Close SaveChanges:=False

    End With

End Sub




http://www.planetaexcel.ru/techniques/3/48/