Delphi ActiveX

Get the Email Received Date/Time

See more Email Object Examples

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)

The date/time is the final part delimited by a semicolon. Delphi ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
email: TChilkatEmail;
sb: TChilkatStringBuilder;
numReplaced: Integer;
st: TChilkatStringTable;

begin
success := 0;

email := TChilkatEmail.Create(Self);

success := email.LoadEml('qa_data/eml/p.eml');
if (success <> 1) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;

sb := TChilkatStringBuilder.Create(Self);
sb.Append(email.GetHeaderField('Received'));

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

st := TChilkatStringTable.Create(Self);
st.AppendFromSb(sb.ControlInterface);

if (st.Count = 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.
sb.SetString(st.StringAt(st.Count - 1));
sb.Trim();

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