Create Email with File Attachment and Save as .eml

Create email with file attachment and save as .eml.

Download Chilkat Email ActiveX

Download Chilkat IMAP ActiveX

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;
contentType: String;

begin
email := CoChilkatEmail2.Create();

email.Subject := 'This is a test';
email.Body := 'This is a test';
email.From := 'support@chilkatsoft.com';
email.AddTo('Matt','matt@chilkatsoft.com');

contentType := email.AddFileAttachment('il1120.pdf');
if (contentType = NULL ) then
  begin
    Memo1.Lines.Add(email.LastErrorText);

  end;

success := email.SaveEml('email.eml');
if (success = 0) then
  begin
    Memo1.Lines.Add(email.LastErrorText);

  end;

ShowMessage('Saved EML!');
end;