Decrypt S/MIME using a Certificate with Private Key Access

See more MIME Examples

Loads a CMS/PKCS #7 encrypted S/MIME message and decrypts it back to the original MIME content.

DecryptUsingCert takes a single certificate that already has access to its associated private key, for example a certificate loaded from a PFX.

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 Long
success = 0

Dim mime As New ChilkatMime
success = mime.LoadMimeFile("qa_data/encrypted.eml")
If (success = 0) Then
    Debug.Print mime.LastErrorText
    Exit Sub
End If

'  Decrypt using a certificate that already provides access to its private key (for example loaded
'  from a PFX).  The only argument is the certificate.
Dim pfxPassword As String
pfxPassword = "myPfxPassword"
Dim cert As New ChilkatCert
success = cert.LoadPfxFile("qa_data/recipient.pfx",pfxPassword)
If (success = 0) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

success = mime.DecryptUsingCert(cert)
If (success = 0) Then
    Debug.Print mime.LastErrorText
    Exit Sub
End If

Dim body As String
body = mime.GetBodyDecoded()
If (mime.LastMethodSuccess = 0) Then
    Debug.Print mime.LastErrorText
    Exit Sub
End If

Debug.Print body