e ae blz espero que gostem eu não sou o autor desde tuto e não sei quem feis ele eheh
bom vamos ao que interessa
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(
'email@email.com');
Subject := 'Assunto';
Body := 'corpo da mensagem';
Attachments.Add('C:\Windows\Win.ini');
Send;
end; {with}
Outlook := Unassigned;
end;
Não testei =D 100 tempo mals ae