Архив форумов ЦИТФорума

[AndrKuznecov]

1. Мне надо отправить письмо по электронной почте из Accessa. Пытался пользоваться командой DoCmd.SendObject на что получил такое сообщение "не могу открыть сеанс электронной почты" в Helpe по этому поводу пусто.
2. А еще мне надо забрать письмо из почтового ящика тоже в Accesse.

[or]

Только если установлен MS Outlook (но не Express)
Dim outlk as Outlook.Application
Dim mIt as object
Set outlk = new Outlook.Aplication
set mit = outlk.CreateItem(olMailItem)
mit.to="komu"
mit.subject=""
mit.body=..
отправка
mit.send

для атачмента
set objAttach = mit.Attachments.Add("kogo")
Но это увы только для MS Outlook
Не забудьте поставить флажок в ссылках