DataFlex

Check if a MIME Tree Contains Encrypted Parts

Demonstrates the Chilkat Mime.ContainsEncryptedParts method, which returns whether the currently visible MIME tree contains a CMS/PKCS #7 encrypted entity. It takes no arguments.

Note: The file path is relative to the application's current working directory. Absolute paths may also be used. Supply the path to your own file.

Background: The tree-wide counterpart to IsEncrypted: it finds an encrypted entity nested anywhere in the message, not just at the top. This lets you detect partially-encrypted messages and decide which parts require decryption before processing.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoMime
    String sTemp1
    Boolean bTemp1

    Move False To iSuccess

    //  Demonstrates the Mime.ContainsEncryptedParts method, which returns whether the MIME tree contains a CMS/PKCS #7 encrypted entity.  It takes no arguments.

    Get Create (RefClass(cComChilkatMime)) To hoMime
    If (Not(IsComObjectCreated(hoMime))) Begin
        Send CreateComObject of hoMime
    End
    Get ComLoadMimeFile Of hoMime "qa_data/message.eml" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoMime To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComContainsEncryptedParts Of hoMime To bTemp1
    If (bTemp1) Begin
        Showln "The message tree contains an encrypted part."
    End
    Else Begin
        Showln "The message tree contains no encrypted part."
    End



End_Procedure