(Tcl) Load .eml and Decrypt (smime.p7m)

Loads an encrypted email from a .eml file and decrypts using certificate w/ private key found in a .p12 (or .pfx) file.

The Content-Type and Content-Disposition email headers of the email to be decrypted look similar to this:

Content-Type: application/x-pkcs7-mime; smime-type=enveloped-data;
	name="smime.p7m"
Content-Disposition: attachment; filename="smime.p7m"

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set email [new_CkEmail]

# Add a PFX (or .p12) to be used for decryption
set success [CkEmail_AddPfxSourceFile $email "myCert.p12" "passwordForP12"]
if {$success != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

# Loading the .eml automatically decrypts.
set success [CkEmail_LoadEml $email "encrypted.eml"]
if {$success != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

# The email now exists as it was prior to encryption.
# Your app may access the email's subject, body, attachments,
# etc. using the Chilkat Email API...

# Save the decrypted email:
set success [CkEmail_SaveEml $email "decrypted.eml"]
if {$success != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

puts "Success."

delete_CkEmail $email