(Visual Basic 6.0) S/MIME Encrypt .eml without Sending

See more Email Object Examples

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim success As Long
success = 0

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim email As New ChilkatEmail

success = email.LoadEml("c:/temp/email/unencrypted.eml")
If (success = 0) Then
    Debug.Print email.LastErrorText
    Exit Sub
End If

' The email content is encrypted using AES with a 256-bit key, operating in GCM mode, which provides authenticated encryption.
email.Pkcs7CryptAlg = "aes-gcm"
email.Pkcs7KeyLength = 256
email.OaepPadding = 1
email.OaepHash = "sha256"
email.OaepMgfHash = "sha256"

Dim cert As New ChilkatCert
success = cert.LoadFromFile("c/temps/cert/recipient.cer")
If (success = 0) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

email.SendEncrypted = 1
success = email.SetEncryptCert(cert)

Dim sbSmime As New ChilkatStringBuilder

' The mailman object applies the encryption by rendering the email according to the instructions (property settings) provided in the email object.
' No email is sent.
Dim mailman As New ChilkatMailMan
success = mailman.RenderToMimeSb(email,sbSmime)
If (success = 0) Then
    Debug.Print mailman.LastErrorText
    Exit Sub
End If

success = sbSmime.WriteFile("c:/temp/encryptedEmail.eml","utf-8",0)
If (success = 0) Then
    Debug.Print mailman.LastErrorText
    Exit Sub
End If

Debug.Print "Success!"