Create S/MIME Detached Signature with PFX

Download Chilkat MIME ActiveX

How to use a PFX to create a signed S/MIME message.

LOCAL loMime
LOCAL lnSuccess
LOCAL loCertStore
LOCAL lcPassword
LOCAL loCert


loMime = CreateObject('Chilkat.Mime')

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

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

loMime.SetBodyFromPlainText("This is the body")

loCertStore = CreateObject('Chilkat.CertStore')

lcPassword = "myPassword"
lnSuccess = loCertStore.LoadPfxFile("chilkat.pfx",lcPassword)
IF (lnSuccess = 0) THEN
    =MESSAGEBOX(loCertStore.LastErrorText)
    QUIT
ENDIF

loCert = loCertStore.FindCertBySubjectCN("Chilkat Software, Inc.")
IF (loCert = NULL ) THEN
    =MESSAGEBOX("Failed to find certificate!")
    QUIT
ENDIF

*  Display the full distinguished name of the cert.
? loCert.SubjectDN

lnSuccess = loMime.AddDetachedSignature(loCert)
IF (lnSuccess = 0) THEN
    =MESSAGEBOX(loMime.LastErrorText)
    QUIT
ENDIF

RELEASE loCert

? loMime.GetMime()