Pascal (Lazarus/Delphi)
Send HTML Email with Attachments

Demonstrates how to send an HTML email with file attachments.
Chilkat Pascal (Lazarus/Delphi) Downloads

Download Chilkat for Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.MailMan,
  Chilkat.StringBuilder,
  Chilkat.Email;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  mailman: TMailMan;
  email: TEmail;
  contentIdStarfish: string;
  sbHtml: TStringBuilder;
  numReplacements: Integer;
  content: string;

begin
  success := False;

  //  This example requires the Chilkat API to have been previously unlocked.
  //  See Global Unlock Sample for sample code.

  mailman := TMailMan.Create;

  mailman.SmtpHost := 'smtp.my-starttls-mail-server.com';

  mailman.SmtpUsername := 'MY-SMTP-USERNAME';
  mailman.SmtpPassword := 'MY-SMTP-PASSWORD';

  mailman.StartTLS := True;
  mailman.SmtpPort := 587;

  //  Create a new email object
  email := TEmail.Create;
  email.Subject := 'Test SMTP API to Send HTML Email with Attachments';
  email.From := 'Joe Programmer <joe@my-starttls-mail-server.com>';
  email.AddTo('Chilkat Support','support@chilkatsoft.com');

  //  Add a plain-text alternative body, which will likely never be seen.
  //  (It is shown if the receiving email client is incapable of displaying HTML email.)
  email.AddPlainTextAlternativeBody('This is a plain-text alternative body...');

  //  Our HTML will include an image, so add the related image here.
  contentIdStarfish := email.AddRelatedFile('qa_data/jpg/starfish.jpg');
  if (email.LastMethodSuccess <> True) then
    begin
      WriteLn(email.LastErrorText);
      Exit;
    end;

  //  The src attribute for the image tag is set to the contentIdStarfish:
  sbHtml := TStringBuilder.Create;
  sbHtml.Append('<html><body><p>This is an HTML email with an embedded image.</p>');
  sbHtml.Append('<p><img src="cid:CONTENT_ID_STARFISH" /></p></body></html>');
  numReplacements := sbHtml.Replace('CONTENT_ID_STARFISH',contentIdStarfish);

  email.AddHtmlAlternativeBody(sbHtml.GetAsString());

  //  Finally, add some attachments to the email.
  //  Add a file attachment.
  success := email.AddFileAttachment2('qa_data/pdf/fishing.pdf','application/pdf');
  if (success <> True) then
    begin
      WriteLn(email.LastErrorText);
      Exit;
    end;

  //  Add an attachment where the content is contained in a string.
  content := 'This is the content of the 2nd attached file.';
  email.AddStringAttachment('someText.txt',content);

  //  Send the HTML email.
  success := mailman.SendEmail(email);
  if (success <> True) then
    begin
      WriteLn(mailman.LastErrorText);
      Exit;
    end;

  success := mailman.CloseSmtpConnection();
  if (success <> True) then
    begin
      WriteLn('Connection to SMTP server not closed cleanly.');
    end;

  WriteLn('HTML email with attachments sent!');


  mailman.Free;
  email.Free;
  sbHtml.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.