(PowerBuilder) Get Email Date/Time

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Email
integer li_Success
oleobject loo_DtTime
integer li_BLocalTime
integer li_UnixTime
oleobject loo_DtObj

loo_Email = create oleobject
// Use "Chilkat_9_5_0.Email" for versions of Chilkat < 10.0.0
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")
if li_rc < 0 then
    destroy loo_Email
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

loo_DtTime = loo_Email.GetDt()
if loo_Email.LastMethodSuccess = 0 then
    Write-Debug "Email has no Date header field."
    destroy loo_Email
    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:
li_BLocalTime = 0
Write-Debug loo_DtTime.GetAsRfc822(li_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)
li_BLocalTime = 1
Write-Debug loo_DtTime.GetAsRfc822(li_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). 
li_UnixTime = loo_DtTime.GetAsUnixTime(li_BLocalTime)
Write-Debug "Unix time: " + string(li_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:
loo_DtObj = loo_DtTime.GetDtObj(li_BLocalTime)
if loo_DtTime.LastMethodSuccess = 0 then
    Write-Debug "This should never really happen!"
    destroy loo_Email
    return
end if

Write-Debug string(loo_DtObj.Day) + "-" + string(loo_DtObj.Month) + "-" + string(loo_DtObj.Year) + " " + string(loo_DtObj.Hour) + ":" + string(loo_DtObj.Minute) + ":" + string(loo_DtObj.Second)

destroy loo_DtObj
destroy loo_DtTime


destroy loo_Email