(DataFlex) 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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoEmail
    Boolean iSuccess
    String sTemp1
    Boolean bTemp1

    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End

    // 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.)
    Get ComAddPfxSourceFile Of hoEmail "/pfxFiles/certs_and_keys_1.pfx" "pfxPassword1" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComAddPfxSourceFile Of hoEmail "/pfxFiles/certs_and_keys_2.pfx" "pfxPassword2" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // ...

    // Load a potentially signed and/or encrypted email.
    Get ComLoadEml Of hoEmail "someDir/someEmail.eml" To iSuccess

    // 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:
    Get ComReceivedEncrypted Of hoEmail To bTemp1
    If (bTemp1 = True) Begin

        Showln "This email was encrypted."
        Get ComDecrypted Of hoEmail To bTemp1
        If (bTemp1 = True) Begin
            Showln "This email was successfully decrypted.  It was encrypted by:"
            Get ComEncryptedBy Of hoEmail To sTemp1
            Showln sTemp1
        End
        Else Begin
            Showln "This email was not decrypted."
        End

    End

    Get ComReceivedSigned Of hoEmail To bTemp1
    If (bTemp1 = True) Begin

        Showln "This email was signed."
        Get ComSignaturesValid Of hoEmail To bTemp1
        If (bTemp1 = True) Begin
            Showln "The signature was verified.  It was signed by:"
            Get ComSignedBy Of hoEmail To sTemp1
            Showln sTemp1
        End
        Else Begin
            Showln "The signature verification failed."
        End

    End

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


End_Procedure