(Delphi ActiveX) Add File Attachments to an Email

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

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
email: TChilkatEmail;
success: Integer;
contentType: WideString;

begin
email := TChilkatEmail.Create(Self);

email.Subject := 'This is a test';
email.Body := 'This is a test';
email.From := 'support@chilkatsoft.com';
success := 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 (email.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;

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

contentType := email.AddFileAttachment('something.zip');
if (email.LastMethodSuccess <> 1) 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;

Memo1.Lines.Add('Saved EML!');
end;