(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loEmail
LOCAL lnSuccess

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email')
loEmail = CreateObject('Chilkat.Email')

* Add a PFX (or .p12) to be used for decryption
lnSuccess = loEmail.AddPfxSourceFile("myCert.p12","passwordForP12")
IF (lnSuccess <> 1) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

* Loading the .eml automatically decrypts.
lnSuccess = loEmail.LoadEml("encrypted.eml")
IF (lnSuccess <> 1) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

* 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:
lnSuccess = loEmail.SaveEml("decrypted.eml")
IF (lnSuccess <> 1) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

? "Success."

RELEASE loEmail