Как запустить MS Outlook с прикрепленным файлом

[andreyjn]

Помогите пожалуйста ! Вообщем такая ситуация, сформировал отчет в BDS 2006 через FastReport (данные берутся из БД) и теперь его нужно выкинуть в MS Outlook для дальнейшей отправки. Т.е. нужно запустить Outlook и прикрепить этот отчет туда. Как такое можно сделать ?

[Daramant]

Как такое можно сделать ?

Посмотри ответы на вопросы по ссылке:
http://www.delphikingdom.com/asp/itemq.asp?ItemID=4

теперь его нужно выкинуть в MS Outlook для дальнейшей отправки.

А зачем MS Outlook? Можно и самому отправлять из программы через IdSMTP:
http://wm-help.net/articles/article/...069183-30.html

[andreyjn]

У нас на работе просто все получают почту через оутлук, там все списки адресов и т.д.

[andreyjn]

[QUOTE=Daramant;338288]Посмотри ответы на вопросы по ссылке:
http://www.delphikingdom.com/asp/itemq.asp?ItemID=4

Спасибо за ссылку из двух нерабочих кодов слепил один и работает ! Если кому надо вот рабочий код :


var
XLApp, OutLook : OleVariant;
MailItem1 : variant;
MyAttachments: OLEVariant;
begin
OutLook:=CreateOleObject('Outlook.A pplication');
MailItem1:= Outlook.Application.CreateItem(0);
MailItem1.Display;
MailItem1.Subject := 'status on '+DateToStr(date)+' '+ TimeToStr(Time);
MailItem1.to:='xxx@xxx.xx; yyy@yyy.yy';
MailItem1.Body := 'ky';
myAttachments := MailItem1.Attachments;
myAttachments.Add('C:\webtizer.rar' , 1, 1, 'Name of Attachment');
end;