(Xojo Plugin) Get Email Date/Time

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

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim email As New Chilkat.Email

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

Dim dtTime As Chilkat.CkDateTime
dtTime = email.GetDt()
If (email.LastMethodSuccess = False) Then
    System.DebugLog("Email has no Date header field.")
    Return
End If

// Once we have the CkDateTime object, we can get the date/time in all sorts of formats:

// Get as a RFC822 GMT string:
Dim bLocalTime As Boolean
bLocalTime = False
System.DebugLog(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
System.DebugLog(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 Int32
unixTime = dtTime.GetAsUnixTime(bLocalTime)
System.DebugLog("Unix time: " + Str(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 Chilkat.DtObj
dtObj = dtTime.GetDtObj(bLocalTime)
If (dtTime.LastMethodSuccess = False) Then
    System.DebugLog("This should never really happen!")
    Return
End If

System.DebugLog(Str(dtObj.Day) + "-" + Str(dtObj.Month) + "-" + Str(dtObj.Year) + " " + Str(dtObj.Hour) + ":" _
     + Str(dtObj.Minute) + ":" + Str(dtObj.Second))