DataFlex

Load Signed and/or Encrypted Email and Unwrap Security Layers

See more Email Object Examples

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. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoEmail
    String sTemp1
    Boolean bTemp1

    Move False To iSuccess

    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