TSMMAPIMail component
This component allow to create an email message and send it using MAPI.
Unlimited recipient and attachment lists are supported.
3Kb Last updated: October 28, 2005
D3-2007, CB3-6 Freeware with sources): MAPIMail.Zip

This component allow to create an email message and send it using MAPI. Unlimited recipient and attachment lists are supported.

Using CC: and BCC: prefixes you can specify carbon recipients.

Code sample:

  with TMAPIMail.Create(Self) do
    try
      Subject := 'test';
      Body := 'Hi,'#13#10#13#10'with best regards, Mike Shkolnik';
      Recipients.Add('mshkolnik@scalabium.com');
      Recipients.Add('CC:mshkolnik@yahoo.com');
      Recipients.Add('BCC:mshkolnik@mail.ru');
      Attachments.Add('c:\autoexec.bat');
      EditDialog := True;
      Send
    finally
      Free
    end;
Note that if you have problems with name resolving, try to add smtp: prefix before email address: 
Recipients.Add('smtp:mshkolnik@scalabium.com');
Must work with any default mailer which support MAPI. For example, MS Outlook, MS Outlook Express, Opera, TheBat etc