B4X

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. B4X

Dim success As Boolean = False

Dim email As ChilkatEmail
email.Initialize

success = email.LoadEml("qa_data/eml/p.eml")
If success <> True Then
    Log(email.LastErrorText)
    Return
End If


Dim sb As ChilkatStringBuilder
sb.Initialize
sb.Append(email.GetHeaderField("Received"))

'  Replace semicolons with CRLF's
Dim numReplaced As Int = sb.Replace(";", Chr(13) & Chr(10))

Dim st As ChilkatStringTable
st.Initialize
st.AppendFromSb(sb)

If st.Count = 0 Then
    Log("Should have at least one line..")
    Return
End If


'  The date/time string is the last line in the string table.
sb.SetString(st.StringAt(st.Count - 1))
sb.Trim

Log("Received date/time = " & sb.GetAsString)