Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

Уведомление о подготовке отчета почтовым сообщением

Автор sergo44441, 12.11.2012, 22:26

« назад - далее »

sergo44441

Добрыйдень. Подскажите в такой ситуации. Я сделал модуль в аксессе (2007), который выполняет несколько запросов и выводит данные в папку в формате экселевского файла. Можно было бы следом задать команду автоотправки заказчику сообщения о подготовке отчета?
Не торопись, и все успеешь намного быстрее

Алексей Шмуйлович

#1
Что-то типа этого:

    Dim olApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Set olApp = Outlook.Application
    'Create e-mail item
    Set objMail = olApp.CreateItem(olMailItem)

    With objMail
        .To = адрес_получателя
       .BodyFormat = olFormatPlain
       .body = ТекстСообщения
       .Subject = ТемаСообщения
             
       .display
    End With


Кажется, можно и без вывода на экран сразу отправить. .send вместо .display . В моем случае нужно было просматривать глазами.

Алексей Шмуйлович


sergo44441

Не торопись, и все успеешь намного быстрее