B4X Requires Chilkat v11.0.0+

Get Email Date/Time

Demonstrates getting the email "Date" header field in a CkDateTime object. B4X

Dim success As Boolean = False

Dim email As ChilkatEmail
email.Initialize

'  Load a .eml file into the email object.
success = email.LoadEml("/home/users/chilkat/eml/myEml.eml")

Dim dtTime As ChilkatDateTime
dtTime.Initialize
dtTime.SetFromRfc822(email.EmailDateStr)

'  Once we have the CkDateTime object, we can get the date/time in many different formats:

'  Get as a RFC822 GMT string:
Dim bLocalTime As Boolean = False
Log(dtTime.GetAsRfc822(bLocalTime))

'  Get as an RFC822 string in the local timezone.
'  (remember, the daylight savings that existed at the given time in the past is applied)
bLocalTime = True
Log(dtTime.GetAsRfc822(bLocalTime))

'  Get as a 32-bit UNIX time (local or GMT..)
'  The Unix time is number of seconds since the Epoch, 1970-01-01 00:00:00 +0000 (UTC). 
Dim unixTime As Int = dtTime.GetAsUnixTime(bLocalTime)
Log("Unix time: " & unixTime)

'  One can also get the as a "DtObj" object for accessing the individual
'  parts of the date/time, such as month, day, year, hour, minute, etc.
'  The DtObj can be obtained in the GMT or local timezone:
Dim dtObj As ChilkatDtObj
dtObj.Initialize
dtTime.ToDtObj(bLocalTime, dtObj)

If dtTime.LastMethodSuccess = False Then
    Log("This should never really happen!")
    Return
End If


Log(dtObj.Day & "-" & dtObj.Month & "-" & dtObj.Year & " " & dtObj.Hour & ":" & dtObj.Minute & ":" & dtObj.Second)