Помогите кто чем может! Срочно нужно сделать так, чтоб рабочий лист в Excel (при нажатии кнопки в форме) высылался по эл. почте. Так, как это описывается в книге Самоучитель по VBA (Андрея Гарнаева) - не получается. Пишет ошибку: "Method 'SendMail' of object '_WorkBook' failed"
Я делаю так:
--------------------------------------------------------------------------------------------------
Private Sub demosendsheet_Click()
SendSheet ActiveSheet, "weeper@drr.nnov.ru", "Test"
End Sub
---------------------------------------------------------------------------------------------------
Sub SendSheet(ws As Worksheet, address As String, subject As String)
ActiveSheet.Copy
ActiveWorkbook.SaveAs "Part of " & _
        ThisWorkbook.Name & " " & Format(Now, "h-mm-ss"), _
        xlWorkbookNormal
ActiveWorkbook.SendMail address, subject     ' Здесь помечает ошибку'
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End Sub
------------------------------