(Excel) Get Email Date/Time

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

Download Excel Class Modules Chilkat Excel Class Modules

Dim email As Chilkat.Email
Set email = Chilkat.NewEmail

' Load a .eml file into the email object.

success = email.LoadEml("/home/users/chilkat/eml/myEml.eml")


Set dtTime = email.GetDt()
If (email.LastMethodSuccess = False) Then
    Debug.Print "Email has no Date header field."
    Exit Sub
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:

bLocalTime = False
Debug.Print 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
Debug.Print 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). 

unixTime = dtTime.GetAsUnixTime(bLocalTime)
Debug.Print "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:

Set dtObj = dtTime.GetDtObj(bLocalTime)
If (dtTime.LastMethodSuccess = False) Then
    Debug.Print "This should never really happen!"
    Exit Sub
End If

Debug.Print dtObj.Day; "-"; dtObj.Month; "-"; dtObj.Year; " "; dtObj.Hour; ":"; dtObj.Minute; ":";  _
    dtObj.Second