Отправить Email с вложением для Outlook Express

uses
 Registry;

 procedure
 OpenMailClient;
 const

   cMailClient = 'SOFTWAREClientsMail';
 var

   reg: TRegistry;
   RegClientDefault: string
;
 begin

   reg := TRegistry.Create;
   try

     with
 reg do

     begin

       CloseKey;
       RootKey := HKEY_LOCAL_MACHINE;
       if
 OpenKeyReadOnly(cMailClient) then
  RegClientDefault := reg.ReadString('');
       if
 OpenKeyReadOnly(cMailClient + RegClientDefault + 'shellopencommand') then

         WinExec(PChar(ReadString('')), SW_SHOWNORMAL);
     end
;
   finally

     reg.Free;
   end
;
 end
;

 procedure
 TForm1.Button1Click(Sender: TObject);
 begin

   OpenMailClient;
 end
;

Другое по теме:

• Извлечь Email адреса из DBX файлов Outlook
• Как написать Outlook AddIn
• Как отправить Email, используя почтовую программу по умолчанию