Отправление текущей книги по электронной почте с заданной темой

Sub Mail_Workbook_2() Dim wb1 As Workbook Dim wb2 As Workbook Dim TempFilePath As String Dim TempFileName As String Dim FileExtStr As String Dim i As Long Set wb1 = ActiveWorkbook With Application .ScreenUpdating = False .EnableEvents = False End With TempFilePath = Environ$(«temp») & «» TempFileName = «Copy of » & wb1.Name & » «… Читать далее Отправление текущей книги по электронной почте с заданной темой