(Delphi DLL) Get the Email Received Date/Time

Get's the date/time from the topmost Received header. The date/time of when you received an email may be different than the date/time stored in the Date header field, which if truthful, is the date when the email was sent.

The Received header field will look something like this:

Received: from mail.example.com (mail.example.com [99.255.255.99])
 by inbound-smtp.us-west-2.amazonaws.com with SMTP id 72ma443vs1g0o6vqd8erojkpss35s0dt32h323o1
 for admin@chilkatsoft.com;
 Wed, 25 Jul 2018 08:04:23 +0000 (UTC)

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StringTable, StringBuilder, Email;

...

procedure TForm1.Button1Click(Sender: TObject);
var
email: HCkEmail;
success: Boolean;
sb: HCkStringBuilder;
numReplaced: Integer;
st: HCkStringTable;

begin
email := CkEmail_Create();

success := CkEmail_LoadEml(email,'qa_data/eml/p.eml');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;

sb := CkStringBuilder_Create();
CkStringBuilder_Append(sb,CkEmail__getHeaderField(email,'Received'));

//  Replace semicolons with CRLF's
numReplaced := CkStringBuilder_Replace(sb,';',#13#10);

st := CkStringTable_Create();
CkStringTable_AppendFromSb(st,sb);

if (CkStringTable_getCount(st) = 0) then
  begin
    Memo1.Lines.Add('Should have at least one line..');
    Exit;
  end;

//  The date/time string is the last line in the string table.
CkStringBuilder_SetString(sb,CkStringTable__stringAt(st,CkStringTable_getCount(st) - 1));
CkStringBuilder_Trim(sb);

Memo1.Lines.Add('Received date/time = ' + CkStringBuilder__getAsString(sb));

CkEmail_Dispose(email);
CkStringBuilder_Dispose(sb);
CkStringTable_Dispose(st);

end;