Pascal (Lazarus/Delphi)

Email Received Header Fields

Received emails will contain one or more "Received" header fields at the beginning of the email header. Each SMTP server (along the delivery path) adds a Received header to the top of the incoming message. The delivery route can be ascertained by the sequence of Received headers. There is a good summary of the Received header here.

The following explanation is taken from the reference URL above:

In theory, the value of a Received field is tokenizable. It contains

    1) optionally, a "from" atom followed by an encoded domain name;
    2) optionally, a "by" atom followed by an encoded domain name;
    3) optionally, a "via" atom followed by another atom;
    4) zero or more of the following: a "with" atom followed by another atom;
    5) optionally, an "id" atom followed by either (1) an atom or (2) a < token, an encoded address, and a > token;
    6) optionally, a "for" atom followed by an encoded address;
    7) a semicolon; and
    8) a timestamp. 

In practice, SMTP servers put all sorts of badly formatted information into Received lines. It is probably best for readers to treat everything before the final semicolon as unstructured text, purely for human consumption.

This example demonstrates iterating over each of the Recevied headers and getting the content of each.

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

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

procedure RunDemo;
var
  success: Boolean;
  email: TEmail;
  sbHdrName: TStringBuilder;
  i: Integer;
  numHeaders: Integer;

begin
  success := False;

  email := TEmail.Create;

  //  Load a .eml file into the email object.
  success := email.LoadEml('/home/users/chilkat/eml/myEml.eml');
  if (success = False) then
    begin
      WriteLn(email.LastErrorText);
      Exit;
    end;

  sbHdrName := TStringBuilder.Create;

  i := 0;
  numHeaders := email.NumHeaderFields;
  while i < numHeaders do
    begin
      sbHdrName.SetString(email.GetHeaderFieldName(i));
      if (sbHdrName.ContentsEqual('Received',False) = True) then
        begin
          WriteLn('Received: ' + email.GetHeaderFieldValue(i));
        end;
      i := i + 1;
    end;



  email.Free;
  sbHdrName.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.