MIME Advanced CMS and Compatibility Option Properties

See more MIME Examples

Demonstrates advanced option properties: CmsOptions (a JSON string of advanced CMS/PKCS #7 signing and validation options), UnwrapExtras (whether UnwrapSecurity adds informative header fields describing removed security layers), and UncommonOptions (an option string for uncommon compatibility requirements).

--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

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

    EXEC sp_OAMethod @mime, 'SetBodyFromPlainText', @success OUT, 'Message body.'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @mime, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @mime
        RETURN
      END

    --  CmsOptions is a JSON string of advanced CMS/PKCS #7 signing and validation options.  The default
    --  is an empty string, which selects normal behavior.  An empty JSON object {} is also valid.
    EXEC sp_OASetProperty @mime, 'CmsOptions', '{}'

    --  UnwrapExtras controls whether UnwrapSecurity adds informative header fields describing the
    --  security layers it removed.  The default is 1.
    EXEC sp_OASetProperty @mime, 'UnwrapExtras', 1

    --  UncommonOptions is a semicolon-delimited option string for uncommon compatibility requirements.
    --  Normal applications should leave it empty, and it should only be used when directed by support.
    EXEC sp_OASetProperty @mime, 'UncommonOptions', ''


    EXEC sp_OAGetProperty @mime, 'CmsOptions', @sTmp0 OUT
    PRINT 'CmsOptions = ' + @sTmp0

    PRINT 'Advanced options configured.'

    EXEC @hr = sp_OADestroy @mime


END
GO