Еще способ с использованием MS Excel 97 и VBA
От: Юнусов Олег Рифович  
Дата: 27.12.01 00:55
Оценка:
Способ годится, видимо, и для других продуктов MS Office. Главное -наличие пункта Отправить (Send) в подменю File. Естественно, что нужен почтовый клиент и MS Office. У меня работало с MS Exchange, TheBat, MS Outlook Express.
Приложение Access вызывает объект Excel.
Код выглядит достаточно просто:

Dim xlDialogSendMail As Integer
xlDialogSendMail = 189
Ex.Application.Dialogs(xlDialogSendMail).Show Me!Email
где Ex -объект Excel, параметр Me!Email — строка пчтового адреса.
Возможно указание второго строкового параметра , который попадает в тему письма.
Создается письмо с вложением файла Excel в виде диалогового окна.
Нехитро, но работает.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.