Create S/MIME Detached Signature with PFX

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

Download Chilkat .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim mime As New Chilkat.Mime()

Dim success As Boolean
success = mime.UnlockComponent("Anything for 30-day trial")
If (success = false) 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 Chilkat.CertStore()

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


Dim cert As Chilkat.Cert
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.
TextBox1.Text = TextBox1.Text & cert.SubjectDN & vbCrLf
TextBox1.Refresh()

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




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