MS Excel и MS Outlook (2003) отсылка писем

[IceB]

Доброго времени суток !

Нуждаюсь в помощи решить проблему в Excel 2003 и MS Outlook .

Имеется таблица юзеров компании. Ежедневно (по 2 - 3 раза в день) отсылается одним и тем же юзерам (около 100 человек, в разном порядке), один и тот же майл с идентичным сабжем (даже без тела - только сабж). Отсылка писем просходит через Outlook, с дальнейшей пометкой в таблице Excel (отослано/не отослано).

Моя задача (а вернее задумка), весь данный процесс проделать через Excel не переходя в Outlook. Найденная и прочитанная мной информация по отсылке писем в связке Excel/Outlook, к сожалению плодов по данному вопросу не принесла.

Хотелось бы придти к такому решению, которое позволило бы нажатием на "имя" в таблице в Excel'e, моментально отсылать заранее вбитый сабж на e-mail адресс юзера, без открытия окна "New Mail" и дополнительного нажатия на кнопку "Send" в Outlook'e , да бы упростить и без того не сложную процедуру.

Надеюсь что вопрос мой ясен и не глуп.

Очень хочу верить в то, что решение такого рода существует и вероятно, является не сложным , но по причине неопытности , не приложу ума, как сделать это всё.

Всем спасибо !

З.Ы. Пишу с работы через транслит - грамматика не 100%

(добавлено модератором - может, кому пригодится)

Посмотрите самый простой способ, как организовать отправку почты (рассылку писем)
(с использованием программы заполнения документов по шаблонам, с последующей отправке по почте)

В программе есть возможность формировать письма по шаблону (с подстановкой данных из таблицы Excel),
прикреплять сформированные документы и файлы из выбранной папки, и много других возможностей.

[imsprof]

Попробуйте вот так:

function sendmail()

Workbooks("BOOK1.XLS").HasRoutingSl ip = True
With Workbooks("BOOK1.XLS").RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array(vasya@xxx.ru, misha@xxx.ru, maria@xxx.ru)
' адреса рассылки по эл.почте можно оформить либо как массив _
в теле макроса, либо внести в ячейки листа, ...
.Subject = "здесь текст сабжа"
.Message = "здесь тело письма если нужно"
End With
Workbooks("BOOK1.XLS").Route
end function