Pascal (Lazarus/Delphi)

Set the X-Mailer Header of an Email

Demonstrates the Chilkat Email.Mailer property, which identifies the email software that sent the email. It corresponds to the MIME X-Mailer header. This example sets the mailer string and shows it in the generated MIME.

Background: X-Mailer is an optional, informational header — the X- prefix marks it as non-standard — that names the program used to compose or send the message. Mail servers do not require it and it has no effect on delivery; it is mainly useful for diagnostics and analytics. Because it is self-reported, it is trivially spoofable and should never be relied on for security decisions.

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.Email;

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

procedure RunDemo;
var
  email: TEmail;

begin
  //  Demonstrates the Email.Mailer property, which identifies the email software
  //  that sent the email.  This corresponds to the MIME X-Mailer header.

  email := TEmail.Create;

  email.Mailer := 'My Custom Mailer 1.0';

  WriteLn('Mailer = ' + email.Mailer);

  //  The X-Mailer header appears in the generated MIME.
  WriteLn(email.GetMime());


  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.