Тема: Макрос отправки через Outlook или без него
Здравствуйте!
Подскажите пожалуйста как прописать макрос, чтобы при нажатии кнопки "сохранить и отправить" в Outlook автоматически подставлялись адрес и тема письма, заранее введеные в макросе.
Или вообще без outlook отправлять сразу файл на указанный адрес и с темой.
---------------------------------------------------------------------------------
P.S.
Нашёл вроде что-то похожее для Excel
Есть таблица на листе Excel. Подскажите как с помощью макроса отправить ее письмом или сам лист, но не как вложенный файл xls.
Sub mai()
ActiveSheet.Select
Set OutlookApp = CreateObject("Outlook.Application")
Set SM = OutlookApp.CreateItem(olMailItem)
SM.To = "address@address.ru"
SM.Subject = "Тема"
SM.Body = ActiveSheet.Range("A1:D8").Value 'Вот здесь как отобразить диапозон, не знаю?
On Error Resume Next
SM.Send
Set SM = Nothing
Set OutlookApp = Nothing
End sub
// но меня смущает строчка SM.Body *