Add File Attachments to an Email

Demonstrates how to add one or more file attachments to an email.

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('Chilkat Admin','admin@chilkatsoft.com');

//  To add file attachments to an email, call AddFileAttachment
//  once for each file to be attached.  The method returns
//  the content-type of the attachment if successful, otherwise
//  returns cknull

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

contentType := email.AddFileAttachment('something.xml');
if (contentType = NULL ) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;

contentType := email.AddFileAttachment('something.zip');
if (contentType = NULL ) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;
success := email.SaveEml('email.eml');
if (success = 0) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;

ShowMessage('Saved EML!');
end;