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

[sergo44441]

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

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

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

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

    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 . В моем случае нужно было просматривать глазами.

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

Вот тут вариант без Outlook https://forum.msexcel.ru/index.php/topic,2441.msg14802.html#msg14802

[sergo44441]

Здорово. Бегу пробовать.