Excel это не сложно

Основные форумы => Вопросы по Outlook и VBA => Тема начата: Voldemar1973 от 02.02.2018, 16:53:14



Название: Рассылка через Outlook из Excel
Отправлено: Voldemar1973 от 02.02.2018, 16:53:14
Привет форумчане!

 Помогите решить  проблему отправки писем через Outlook,  используя макрос в таблице Excel, по работе прямо очень, очень нужно.
  Для начала прошу прощения, эту тему уже наверняка уже обсуждали, но я так и не нашел именно то, что мне нужно. Вообщем, смысл задачи такой.  В таблице Excel имеются четыре столбца:  

1.  Адреса e-mail ( у меня порядка 100 получателей)
2.  Тема сообщения.
3   Путь к файлу ( я делаю шаблон письма в Outlook и сохраняю его в отдельной папке. Расширение файла .oft)
4.  Путь к файлу вложению.  Было бы классно, если бы выдававалось еще какое-нибудь сообщение об ошибке отправки, но это в принципе, думаю,  не так важно.  

В приложении excel файл с этими полями, буду очень признателен, если сможете помочь.
 Заранее спасибо!!! :-)


Название: Re:Рассылка через Outlook из Excel
Отправлено: Дмитрий Щербаков(The_Prist) от 03.02.2018, 09:50:30
Добрый день.
А чем помочь? Тут больше на ТЗ похоже, чем на помощь. Не видно, чтобы Вы сами хоть как-то попытались сделать что-то самостоятельно. Например, построить под себя код из статьи: Как отправить письмо из Excel? (http://www.excel-vba.ru/chto-umeet-excel/kak-otpravit-pismo-iz-excel/)
Единственное, для создания письма из своего шаблона надо будет вместо строки:
Код: (vb)
Set objMail = objOutlookApp.CreateItem(0)   'создаем новое сообщение

применить такую:
Код: (vb)
Set objMail = objOutlookApp.CreateItemFromTemplate(Cells(lr, 3).Value) 'создаем письмо из шаблона, полный путь к которому записан в ячейке третьего столбца