VBScript

MIME Advanced CMS and Compatibility Option Properties

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).

Background. These properties adjust behavior only in specialized situations. Their defaults (empty CmsOptions, UnwrapExtras enabled, empty UncommonOptions) are correct for normal use; UncommonOptions in particular should be set only when directed by support.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set mime = CreateObject("Chilkat.Mime")
success = mime.SetBodyFromPlainText("Message body.")
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

'  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.
mime.CmsOptions = "{}"

'  UnwrapExtras controls whether UnwrapSecurity adds informative header fields describing the
'  security layers it removed.  The default is 1.
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.
mime.UncommonOptions = ""

outFile.WriteLine("CmsOptions = " & mime.CmsOptions)
outFile.WriteLine("Advanced options configured.")

outFile.Close