Attach Message to Email (message/rfc822)

Download Chilkat Email ActiveX

How to create an email with an attached message (content-type = message/rfc822)

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATMAILLib2_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
email: CHILKATMAILLib2_TLB.IChilkatEmail2;
success: Integer;

begin


email := CoChilkatEmail2.Create();

email.Subject := 'Subject...';
email.From := 'Chilkat Support <support@chilkatsoft.com>';

//  Call AddTo multiple times, once per recipient, or
//  call AddMultipleTo with a comma-separated email address string.
//  or call AddHeaderField("To","To someone...")
email.AddTo('Chilkat Admin','admin@chilkatsoft.com');

//  Add our own custom header.
email.AddHeaderField('X-MyCompany','testing');

email.Body := 'This is the email body...';

//  The email object now has a very basic plain-text email,
//  with a customer header.

//  The email we'll add is going to be loaded from a .eml file:

success := email.AddFileAttachment2('email.eml','message/rfc822');
if (success <> 1) then
  begin
    ShowMessage(email.LastErrorText);
  end
else
  begin
    email.SaveEml('out.eml');
    ShowMessage('Success!');
  end;


end;