S/MIME Signed Message

Create an S/MIME signed (PKCS7) message.

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

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(mime.LastErrorText)
    Exit Sub
End If


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

mime.SetBodyFromPlainText("This is the body")

Dim cert As New Chilkat.Cert()
'  Load a certificate that has already been installed (from a .pfx)
'  on the computer:
success = cert.LoadByEmailAddress("thawte@chilkatsoft.com")
If (success = false) Then
    MsgBox(cert.LastErrorText)
    Exit Sub
End If


'  Convert to a signed message.
success = mime.ConvertToSigned(cert)
If (success = false) Then
    MsgBox(mime.LastErrorText)
    Exit Sub
End If


'  Display the signed MIME:
TextBox1.Text = TextBox1.Text & mime.GetMime() & vbCrLf

TextBox1.Text = TextBox1.Text & "----" & vbCrLf

'  Unwrap to restore the original MIME.
success = mime.UnwrapSecurity()
If (success = false) Then
    MsgBox(mime.LastErrorText)
    Exit Sub
End If


'  Display the restored (unsigned) MIME:
TextBox1.Text = TextBox1.Text & mime.GetMime() & vbCrLf