S/MIME Signed Message

Download Chilkat MIME ActiveX

Create an S/MIME signed (PKCS7) message.

LOCAL loMime
LOCAL lnSuccess
LOCAL loCert

loMime = CreateObject('Chilkat.Mime')

lnSuccess = loMime.UnlockComponent("Anything for 30-day trial.")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX(loMime.LastErrorText)
    QUIT
ENDIF

loMime.AddHeaderField("Subject","This is a test")
loMime.AddHeaderField("Abc","123")

loMime.SetBodyFromPlainText("This is the body")

loCert = CreateObject('Chilkat.Cert')
*  Load a certificate that has already been installed (from a .pfx)
*  on the computer:
lnSuccess = loCert.LoadByEmailAddress("thawte@chilkatsoft.com")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX(loCert.LastErrorText)
    QUIT
ENDIF

*  Convert to a signed message.
lnSuccess = loMime.ConvertToSigned(loCert)
IF (lnSuccess = 0) THEN
    =MESSAGEBOX(loMime.LastErrorText)
    QUIT
ENDIF

*  Display the signed MIME:
? loMime.GetMime()

? "----"

*  Unwrap to restore the original MIME.
lnSuccess = loMime.UnwrapSecurity()
IF (lnSuccess = 0) THEN
    =MESSAGEBOX(loMime.LastErrorText)
    QUIT
ENDIF

*  Display the restored (unsigned) MIME:
? loMime.GetMime()