S/MIME Signed Message

Download Chilkat MIME ActiveX

Create an S/MIME signed (PKCS7) message.

Dim mime As New ChilkatMime

Dim success As Long
success = mime.UnlockComponent("Anything for 30-day trial.")
If (success = 0) 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 ChilkatCert
'  Load a certificate that has already been installed (from a .pfx)
'  on the computer:
success = cert.LoadByEmailAddress("thawte@chilkatsoft.com")
If (success = 0) Then
    MsgBox cert.LastErrorText
    Exit Sub
End If

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

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

Text1.Text = Text1.Text & "----" & vbCrLf

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

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