(Visual FoxPro) Load Signed and/or Encrypted Email and Unwrap Security Layers

The LoadEml method loads an email (.eml file containing the MIME of an email) and automatically unwraps the digital signature and encryption security layers. A program can then examine the properties of the email object to see what was unwrapped.

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')

* Provide PFX/.p12 files for any certs+keys needed for decryption.
* Signature verification does not need anything extra.  
* (Also, Chilkat will automatically find and use pre-installed certs + private keys needed for decryption
* on a Windows system.)
lnSuccess = loEmail.AddPfxSourceFile("/pfxFiles/certs_and_keys_1.pfx","pfxPassword1")
IF (lnSuccess <> 1) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

lnSuccess = loEmail.AddPfxSourceFile("/pfxFiles/certs_and_keys_2.pfx","pfxPassword2")
IF (lnSuccess <> 1) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

* ...

* Load a potentially signed and/or encrypted email.
lnSuccess = loEmail.LoadEml("someDir/someEmail.eml")

* If the email was signed and/or encrypted, it was "unwrapped", i.e.
* the email is already decrypted and in a state as if it were never signed or encrypted.

* You may check to see if the email was received encrypted or signed, and if so,
* whether it was successfully unwrapped and who signed or encrypted it:
IF (loEmail.ReceivedEncrypted = 1) THEN

    ? "This email was encrypted."
    IF (loEmail.Decrypted = 1) THEN
        ? "This email was successfully decrypted.  It was encrypted by:"
        ? loEmail.EncryptedBy
    ELSE
        ? "This email was not decrypted."
    ENDIF

ENDIF

IF (loEmail.ReceivedSigned = 1) THEN

    ? "This email was signed."
    IF (loEmail.SignaturesValid = 1) THEN
        ? "The signature was verified.  It was signed by:"
        ? loEmail.SignedBy
    ELSE
        ? "The signature verification failed."
    ENDIF

ENDIF

* At this point, the contents of the email, including attachments, can be accessed normally..

RELEASE loEmail