Encrypt MIME for a Recipient Certificate

See more MIME Examples

Demonstrates encrypting the current MIME entity for a single recipient using the Mime.Encrypt method. The entity is replaced with CMS/PKCS #7 encrypted S/MIME that only the holder of the recipient's private key can read.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Dim success As Boolean = False

Dim mime As New Chilkat.Mime
success = mime.SetBodyFromPlainText("This message will be encrypted.")
If (success = False) Then
    Debug.WriteLine(mime.LastErrorText)
    Exit Sub
End If

'  Load the recipient's certificate (public key only is sufficient for encrypting).
Dim cert As New Chilkat.Cert
success = cert.LoadFromFile("qa_data/recipient.cer")
If (success = False) Then
    Debug.WriteLine(cert.LastErrorText)
    Exit Sub
End If


'  Encrypt for the recipient.  The entity is replaced with CMS/PKCS #7 encrypted S/MIME that only
'  the holder of the recipient's private key can decrypt.  The certificate must be RSA-based.
success = mime.Encrypt(cert)
If (success = False) Then
    Debug.WriteLine(mime.LastErrorText)
    Exit Sub
End If


success = mime.SaveMime("qa_output/encrypted.eml")
If (success = False) Then
    Debug.WriteLine(mime.LastErrorText)
    Exit Sub
End If

Debug.WriteLine("Message encrypted.")