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

Download Visual Basic Project Files and Source Code

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

        ' Get a 30-day trial code from http:'www.chilkatsoft.com/register30.asp
        mime.UnlockComponent "UnlockCode"
        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