usesOutlook_TLB; var
outlook: _application; procedure
Init; begin
outlook := Coapplication_.Create; end
; procedure
SendEmail; begin
with
Outlook.CreateItem(olMailItem) as
mailitem do
begin
To_ := 'email@email.com'; cc := 'email2@email.com'; Subject := 'This is subject line'; Attachments.Add('FileName', 1, 1, 'This is attachment'); Body := 'This is email body'; Send; end
; end
;