eMail per Mapi mit mehreren cc, bcc und Anhängen

[toms]

Hallo,

funktioniert mit Delphi 6 / Thunderbird 3 / Vista.

Jedoch würde ich das ganze in eine Klasse verpacken, etwa so:

Delphi-Quellcode:

    var
      SendMail: TSendMail;

    with SendMail.Create(nil) do
    begin
      SendTo.Add('[e-mail]');
      SendTo.Add('[e-mail]');
      SendCC.Add('[e-mail]');
      SendBCC.Add('[e-mail]');
      Attachments.Add('C:\Anhang1.txt');
      Attachments.Add('C:\Anhang2.txt');
      Attachments.Add('C:\Anhang3.txt');
      Subject := 'Subject';
      Body := 'text text text';
      Show; // oder Execute oder...
      Free;
    end;