1 Тема от Sexofall

  • Sexofall
  • рядовой
  • Неактивен
  • Зарегистрирован: 15.10.2013
  • Сообщений: 1

Тема: Макрос отправки через 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 *

2 Ответ от Kreol2013

  • Kreol2013
  • лейтенант
  • Неактивен
  • Зарегистрирован: 18.02.2013
  • Сообщений: 59
  • Поблагодарили: 2

Re: Макрос отправки через Outlook или без него

Ну мало того что Вы не та том форуме задаете вопрос, вы еще и не удосужились даже показать зачем вам использовать диапазон???
Если не хватает 1 ячейки, ну склеивайте текст через конкатенацию (СЦЕПИТЬ)
Или там какие-то супер траблы.
И на кой указывать маил руками? также через Range().Value
Спамеров для писем море, зачем вы придумываете велосипед?)