Create S/MIME Detached Signature with PFX

Download Chilkat MIME ActiveX

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

Dim mime As New ChilkatMime

Dim success As Long
success = mime.UnlockComponent("Anything for 30-day trial")
If (success = 0) Then
    MsgBox "Failed to unlock component"
    Exit Sub
End If

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

mime.SetBodyFromPlainText "This is the body"

Dim certStore As New ChilkatCertStore

Dim password As String
password = "myPassword"
success = certStore.LoadPfxFile("chilkat.pfx",password)
If (success = 0) Then
    MsgBox certStore.LastErrorText
    Exit Sub
End If

Dim cert As ChilkatCert
Set cert = certStore.FindCertBySubjectCN("Chilkat Software, Inc.")
If (cert Is Nothing ) Then
    MsgBox "Failed to find certificate!"
    Exit Sub
End If

'  Display the full distinguished name of the cert.
Text1.Text = Text1.Text & cert.SubjectDN & vbCrLf
Text1.Refresh

success = mime.AddDetachedSignature(cert)
If (success = 0) Then
    MsgBox mime.LastErrorText
    Exit Sub
End If

Text1.Text = Text1.Text & mime.GetMime() & vbCrLf
Text1.Refresh