Автор: Vit
WEB-сайт: http://forum.vingrad.ru

uses Outlook_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;