Xbase++

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. Xbase++

LOCAL nSuccess
LOCAL oEmail
LOCAL oSb
LOCAL nNumReplaced
LOCAL oSt

nSuccess := 0

oEmail := CreateObject("Chilkat.Email")

nSuccess := oEmail:LoadEml("qa_data/eml/p.eml")
IF (nSuccess != 1)
    ? oEmail:LastErrorText
    oEmail:destroy()
    RETURN
ENDIF

oSb := CreateObject("Chilkat.StringBuilder")
oSb:Append(oEmail:GetHeaderField("Received"))

//  Replace semicolons with CRLF's
nNumReplaced := oSb:Replace(";", Chr(13) + Chr(10))

oSt := CreateObject("Chilkat.StringTable")
oSt:AppendFromSb(oSb)

IF (oSt:Count == 0)
    ? "Should have at least one line.."
    oEmail:destroy()
    oSb:destroy()
    oSt:destroy()
    RETURN
ENDIF

//  The date/time string is the last line in the string table.
oSb:SetString(oSt:StringAt(oSt:Count - 1))
oSb:Trim()

? "Received date/time = " + oSb:GetAsString()

oEmail:destroy()
oSb:destroy()
oSt:destroy()