S/MIME Encrypt with Certificate from File (.cer)

Download Chilkat MIME ActiveX

S/MIME encrypts a message using a .cer file.

' Encrypts any kind of file into an S/MIME encrypted message.
Private Sub Command1_Click()

        Dim mime As New ChilkatMime


        mime.UnlockComponent "Anything for 30-day trial"
        mime.SetBodyFromPlainText "This is a message containing a GIF image file."
        mime.AppendPartFromFile "dude.gif"
        mime.SaveMime "unencrypted.txt"
        
        Dim cert As New ChilkatCert
        cert.LoadFromFile "matt.cer"
        
        ' Use the certificate for encryption.
        ' This creates an encrypted S/MIME message.
        mime.Encrypt cert
        mime.SaveMime "encrypted.txt"

End Sub