~~~~~~~~~~~~~~~~~~~~~~~~~
const olMailItem = 0;
var Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook:=GetActiveOleObject('Outlook.Application') ;
except
Outlook:=CreateOleObject('Outlook.Application') ;
end;
MailItem := Outlook.CreateItem(olMailItem) ;
with MailItem do begin
Recipients.Add('delphi.guide@about.com') ;
Subject := 'Subject: Outlook Mail From Delphi';
Body := 'Welcome to my homepage:
http://delphi.about.com';
Attachments.Add('C:\Windows\Win.ini') ;
Send;
end; {with}
Outlook := Unassigned;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» Controling sound volume from code
« How to "HotTrack" any control
