Create Email with File Attachment and Save as .eml

Create email with file attachment and save as .eml.

Download Chilkat Email ActiveX

Download 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

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;