(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

loEmail = createobject("CkEmail")

llSuccess = loEmail.LoadEml("qa_data/eml/p.eml")
if (llSuccess <> .T.) then
    ? loEmail.LastErrorText
    release loEmail
    return
endif

loSb = createobject("CkStringBuilder")
loSb.Append(loEmail.GetHeaderField("Received"))

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

loSt = createobject("CkStringTable")
loSt.AppendFromSb(loSb)

if (loSt.Count = 0) then
    ? "Should have at least one line.."
    release loEmail
    release loSb
    release loSt
    return
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