Рассылка через Outlook из Excel

[Voldemar1973]

Привет форумчане!

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

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

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

[Дмитрий Щербаков(The_Prist)]

Добрый день.
А чем помочь? Тут больше на ТЗ похоже, чем на помощь. Не видно, чтобы Вы сами хоть как-то попытались сделать что-то самостоятельно. Например, построить под себя код из статьи: Как отправить письмо из Excel?
Единственное, для создания письма из своего шаблона надо будет вместо строки:

Код (vb) Выделить Развернуть

Set objMail = objOutlookApp.CreateItem(0)   'создаем новое сообщение
применить такую:

Код (vb) Выделить Развернуть

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