(SQL Server) Set the Email Date Header to the Current System Date/Time

Demonstrates how to set the Date header field of an email to the computer's current date/time. Note: When an email object is instantiated, the Date header field is automatically added and initialized to the current system date/time. The need to explicitly set the Date header could arise when loading an email from a .eml.

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

// Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
//
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @email int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Email', @email OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    -- At this point, a new email object has been instantiated, and it
    -- already has a Date header field containing the current date/time.

    EXEC sp_OAGetProperty @email, 'EmailDateStr', @sTmp0 OUT
    PRINT 'Date: ' + @sTmp0

    -- We can also get the Date header like this:

    EXEC sp_OAMethod @email, 'GetHeaderField', @sTmp0 OUT, 'Date'
    PRINT 'Date: ' + @sTmp0

    -- Load a .eml into the email object:
    DECLARE @success int
    EXEC sp_OAMethod @email, 'LoadEml', @success OUT, 'myEmlFiles/someEmail.eml'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @email, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @email
        RETURN
      END

    -- Show the Date that was in the .eml

    EXEC sp_OAGetProperty @email, 'EmailDateStr', @sTmp0 OUT
    PRINT 'Date: ' + @sTmp0

    -- Now the Date header contains whatever was in the .eml
    -- Let's update it to the current system date/time..

    DECLARE @dateTime int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.CkDateTime', @dateTime OUT

    EXEC sp_OAMethod @dateTime, 'SetFromCurrentSystemTime', @success OUT

    EXEC sp_OAMethod @email, 'SetDt', @success OUT, @dateTime
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @email, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @email
        EXEC @hr = sp_OADestroy @dateTime
        RETURN
      END

    -- Now show that the Date is the current system time:

    EXEC sp_OAGetProperty @email, 'EmailDateStr', @sTmp0 OUT
    PRINT 'Date: ' + @sTmp0

    EXEC sp_OAMethod @email, 'GetHeaderField', @sTmp0 OUT, 'Date'
    PRINT 'Date: ' + @sTmp0

    EXEC @hr = sp_OADestroy @email
    EXEC @hr = sp_OADestroy @dateTime


END
GO