Pascal (Lazarus/Delphi)

Set the X-Priority Header of an Email

Demonstrates how to set the X-Priority header field of an 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;

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

procedure RunDemo;
var
  email: TEmail;

begin
  //  The AddHeaderField can be called to add any header field.
  //  If the header field already exists, AddHeaderField replaces it.
  email := TEmail.Create;
  email.AddHeaderField('X-Priority','3 (Normal)');

  email.AddHeaderField('X-Priority','1 (High)');

  email.AddHeaderField('X-Priority','5 (Low)');

  //  The X-Priority value ranges from 1 to 5, with 1 being 
  //  high priority, 3 is normal, and 5 is low.
  //  You may set X-Priority to the number alone:

  email.AddHeaderField('X-Priority','1');

  //  Including extra text, such as (High), should not 
  //  affect how the header is interpreted.
  email.AddHeaderField('X-Priority','1 (High)');


  email.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.