В некотором замешательстве - необходимо отправлять письма из access 2003 через outlook.
Через DoCmd.SendObject письма создаются, все ок.
Но требуется несколько получателей + html форматирование самого сообщения, поэтому вариант с DoCmd.SendObject не подходит.

Разбирался с примерами на форуме, например, http://am.rusimport.ru/MSAccess/topic.aspx?ID=748
но на строке
Dim OL_App As Outlook.Application сразу возникает ошибка - user-defined type not defined

если просто запустить приложенную базу и попробовать отправить письмо (кнопка "выполнить"), то выдается ошибка 429 (ActiveX component can't creatw object)

что делаю не так, ткните, плз...

Akina,

да, подключена

Akina,
подключена microsoft outlook 15.0 object library
это имелось в виду?

отключил и заново подключил библиотеку,
теперь ошибка activex can't create object
на строке
Set OL_App = CreateObject("Outlook.Application")

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

Private Sub Кнопка0_Click()
Dim OL_App As Outlook.Application
Dim OL_ItemMail As Outlook.MailItem

Set OL_App = CreateObject("Outlook.Application") ' получаем объект Outlook
Set OL_ItemMail = OL_App.CreateItem(olMailItem) ' создаем новое письмо

End Sub

пробовал и с Вашим вариантом, та же ошибка.

Панург,
да,пасибо, этот топик смотрел уже ранее.

у меня по этому примеру ошибка "Не установлен OutLook"

Панург,
да, вроде, не криво... Через SendObject работает ведь без ошибок.
Может проблема в том, что access 2003, а outlook 2013?

Панург,
Без outlook не вариант, т.к. требуется история отправок именно в outlook

Панург,
попробовал на 2010 офисе - работает Ваш скрипт.
На 2013 не работает - ошибка, что outlook не установлен. Пробовал на нескольких машинах, результат одинаков...

Панург,
решено добавлением



еще раз спасибо за пример.