SQL Server

Get Email Date/Time

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

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    DECLARE @iTmp1 int
    DECLARE @iTmp2 int
    DECLARE @iTmp3 int
    DECLARE @iTmp4 int
    DECLARE @iTmp5 int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

    DECLARE @email int
    EXEC @hr = sp_OACreate 'Chilkat.Email', @email OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    -- Load a .eml file into the email object.
    EXEC sp_OAMethod @email, 'LoadEml', @success OUT, '/home/users/chilkat/eml/myEml.eml'

    DECLARE @dtTime int
    EXEC @hr = sp_OACreate 'Chilkat.CkDateTime', @dtTime OUT

    EXEC sp_OAGetProperty @email, 'EmailDateStr', @sTmp0 OUT
    EXEC sp_OAMethod @dtTime, 'SetFromRfc822', @success OUT, @sTmp0

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

    -- Get as a RFC822 GMT string:
    DECLARE @bLocalTime int
    SELECT @bLocalTime = 0
    EXEC sp_OAMethod @dtTime, 'GetAsRfc822', @sTmp0 OUT, @bLocalTime
    PRINT @sTmp0

    -- Get as an RFC822 string in the local timezone.
    -- (remember, the daylight savings that existed at the given time in the past is applied)
    SELECT @bLocalTime = 1
    EXEC sp_OAMethod @dtTime, 'GetAsRfc822', @sTmp0 OUT, @bLocalTime
    PRINT @sTmp0

    -- 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). 
    DECLARE @unixTime int
    EXEC sp_OAMethod @dtTime, 'GetAsUnixTime', @unixTime OUT, @bLocalTime

    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:
    DECLARE @dtObj int
    EXEC @hr = sp_OACreate 'Chilkat.DtObj', @dtObj OUT

    EXEC sp_OAMethod @dtTime, 'ToDtObj', NULL, @bLocalTime, @dtObj

    EXEC sp_OAGetProperty @dtTime, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 0
      BEGIN

        PRINT 'This should never really happen!'
        EXEC @hr = sp_OADestroy @email
        EXEC @hr = sp_OADestroy @dtTime
        EXEC @hr = sp_OADestroy @dtObj
        RETURN
      END

    EXEC sp_OAGetProperty @dtObj, 'Day', @iTmp0 OUT

    EXEC sp_OAGetProperty @dtObj, 'Month', @iTmp1 OUT

    EXEC sp_OAGetProperty @dtObj, 'Year', @iTmp2 OUT

    EXEC sp_OAGetProperty @dtObj, 'Hour', @iTmp3 OUT

    EXEC sp_OAGetProperty @dtObj, 'Minute', @iTmp4 OUT

    EXEC sp_OAGetProperty @dtObj, 'Second', @iTmp5 OUT
    PRINT @iTmp0 + '-' + @iTmp1 + '-' + @iTmp2 + ' ' + @iTmp3 + ':' + @iTmp4 + ':' + @iTmp5

    EXEC @hr = sp_OADestroy @email
    EXEC @hr = sp_OADestroy @dtTime
    EXEC @hr = sp_OADestroy @dtObj


END
GO