(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loEmail
LOCAL lnSuccess
LOCAL loSb
LOCAL lnNumReplaced
LOCAL loSt

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email')
loEmail = CreateObject('Chilkat.Email')

lnSuccess = loEmail.LoadEml("qa_data/eml/p.eml")
IF (lnSuccess <> 1) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSb = CreateObject('Chilkat.StringBuilder')
loSb.Append(loEmail.GetHeaderField("Received"))

* Replace semicolons with CRLF's
lnNumReplaced = loSb.Replace(";",CHR(13) + CHR(10))

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringTable')
loSt = CreateObject('Chilkat.StringTable')
loSt.AppendFromSb(loSb)

IF (loSt.Count = 0) THEN
    ? "Should have at least one line.."
    RELEASE loEmail
    RELEASE loSb
    RELEASE loSt
    CANCEL
ENDIF

* The date/time string is the last line in the string table.
loSb.SetString(loSt.StringAt(loSt.Count - 1))
loSb.Trim()

? "Received date/time = " + loSb.GetAsString()

RELEASE loEmail
RELEASE loSb
RELEASE loSt