Create S/MIME Detached Signature with PFX

Download Chilkat MIME ActiveX

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)


set mime = CreateObject("Chilkat.Mime")

success = mime.UnlockComponent("Anything for 30-day trial")
If (success = 0) Then
    MsgBox "Failed to unlock component"
    WScript.Quit
End If

mime.AddHeaderField "Subject","This is a test"
mime.AddHeaderField "Abc","123"

mime.SetBodyFromPlainText "This is the body"

set certStore = CreateObject("Chilkat.CertStore")

password = "myPassword"
success = certStore.LoadPfxFile("chilkat.pfx",password)
If (success = 0) Then
    MsgBox certStore.LastErrorText
    WScript.Quit
End If

Set cert = certStore.FindCertBySubjectCN("Chilkat Software, Inc.")
If (cert Is Nothing ) Then
    MsgBox "Failed to find certificate!"
    WScript.Quit
End If

'  Display the full distinguished name of the cert.
outFile.WriteLine(cert.SubjectDN)

success = mime.AddDetachedSignature(cert)
If (success = 0) Then
    MsgBox mime.LastErrorText
    WScript.Quit
End If

outFile.WriteLine(mime.GetMime())


outFile.Close