Pascal (Lazarus/Delphi)

Attach Email as message/rfc822 sub-part to an Email

See more Email Object Examples

Demonstrates how to add attach a message/rfc822 email to another email. 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.Email,
  Chilkat.FileAccess;

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

procedure RunDemo;
var
  success: Boolean;
  emlBytes: TBytes;
  fac: TFileAccess;
  email: TEmail;
  emailToBeAttached: TEmail;
  email2: TEmail;
  emlBytes2: TBytes;

begin
  success := False;

  //  In this example, we'll attach an email loaded from a .eml file to a new email.

  fac := TFileAccess.Create;
  emlBytes := fac.ReadEntireFile('qa_data/eml/simple.eml');

  email := TEmail.Create;
  email.Subject := 'This is a test email with an attached email.';
  email.Body := 'Test with attached email.';
  email.AddTo('Joe','joe@example.com');
  email.From := 'mary@example.com';

  success := email.AttachMessage(emlBytes);

  WriteLn(email.GetMime());

  //  ----------------------------------------------------------------------
  //  Alternatively, we could do this:
  emailToBeAttached := TEmail.Create;
  success := emailToBeAttached.LoadEml('qa_data/eml/simple.eml');

  email2 := TEmail.Create;
  email2.Subject := 'This is a test email with an attached email.';
  email2.Body := 'Test with attached email.';
  email2.AddTo('Joe','joe@example.com');
  email2.From := 'mary@example.com';

  emlBytes2 := emailToBeAttached.GetMimeBinary();
  success := email2.AttachMessage(emlBytes2);

  WriteLn('----');

  WriteLn(email2.GetMime());


  fac.Free;
  email.Free;
  emailToBeAttached.Free;
  email2.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.