Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

8th
Июл

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

Posted by maloy under Delphi, Архив

andreyjn

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

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

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;