Enviar Mail con Adjunto desde delphi 2010

[tulio]

Hola, ahi encontre una solucion sencilla

toma el mail de hotmail definido en outlook

Graciasss

Código Delphi [-]
procedure TF_lisingre.BitBtn5Click(Sender: TObject);
const
  olMailItem = 0;
var
  Outlook, MailItem: OLEVariant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;

  MailItem := Outlook.CreateItem(olMailItem);
  MailItem.Recipients.Add('destino@hotmail.com');
  MailItem.Subject := 'Holaaa';
  MailItem.Body := 'Cuerpo del Mensaje';
  MailItem.Attachments.Add('C:\archivo1.sql');
  MailItem.Attachments.Add('C:\archivo2.sql');
  MailItem.Send;
  //Outlook := Unassigned;
end;