Delphi ActiveX

Add File Attachments to an Email

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

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
success: Integer;
email: TChilkatEmail;
contentType: WideString;

begin
success := 0;

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;