Подскажите как отправить данные из Dbgrid через Outlook?
49 Cent © (2006-01-27 17:09:00)
Есть Adotable и связанный с ним Dbgrid. В Dbgrid отображаются
данные об отгрузке. Т.е указан список клиентов и материалы, которые
идут к клиенту. Идея такая! Необходимо отправить через Outlook,
каждому клиенту информацию о том, что ему идет. Половина алгоритма
понятна! Через фильтр оставляем определенного клиента и дальше
необходимо отправить отфильтрованную информацию через Outlook в
виде письма с вложением. И вот этом проблема! Т.е в конечном счете
необходимо создать в Outlook сообщение, в это сообщение вложить
созданный файл и отправить его по определенному адресу и при это
важно чтобы отправленное сообщение осталось в отправленных
"Оутлука".
Зы. Я нашел пример, но там используется некий MailItem1 с
закладки Servers, но в 7Делфи нет такого компонента. Есть какие
другие способы?
Заранее спасибо.
49 Cent (2006-01-27 17:50:00) [1]
Нашел такой код!
> var
> OleOutlook,myAttachments,myAttachment: Variant;
> myitem:Variant;
> begin
> OleOutlook :=
CreateOleObject('Outlook.Application');
>
> myItem := OleOutlook.CreateItem(0);
> myItem.To := 'somemail@somewhere.ru';
> myItem.Subject := 'Test My Mail';
> myItem.Body := 'Test My Mail';
> myAttachments := myItem.Attachments;
> myAttachment :=
myAttachments.Add('C:\1.txt');
> myItem.Send;
С помощью этого кода отправляет файл через Outlook, а мне
необходимо через Outlook Express. Как это исправить?
Наверх 
ЧАТ |
Орешник |
|
