DataFlex

Check if a Received Email Was Decrypted

Demonstrates the read-only Chilkat Email.Decrypted property, which is true if the email arrived encrypted and was successfully decrypted. This property is only meaningful when ReceivedEncrypted is true, so you should always check ReceivedEncrypted first — a false value can mean either that the message was not encrypted or that decryption did not succeed. This example loads a received email and reports its encryption/decryption status.

Background: Encrypted email typically uses S/MIME. The sender encrypts the message with the recipient's public-key certificate, and only the holder of the matching private key can decrypt it. When Chilkat loads such a message and has access to the private key, it decrypts automatically; ReceivedEncrypted tells you the message arrived encrypted, and Decrypted tells you whether decryption succeeded.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoEmail
    String sTemp1
    Boolean bTemp1

    Move False To iSuccess

    //  Demonstrates the Email.Decrypted property.
    //  Decrypted is true if the email arrived encrypted and was successfully
    //  decrypted.  It is only meaningful when ReceivedEncrypted is true.

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

    //  Load an email that was received (from a .eml file).
    Get ComLoadEml Of hoEmail "qa_data/eml/received.eml" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    //  Always check ReceivedEncrypted first.
    Get ComReceivedEncrypted Of hoEmail To bTemp1
    If (bTemp1 = True) Begin
        Get ComDecrypted Of hoEmail To bTemp1
        If (bTemp1 = True) Begin
            Showln "The email was encrypted and was successfully decrypted."
        End
        Else Begin
            Showln "The email was encrypted but could NOT be decrypted."
        End

    End
    Else Begin
        Showln "The email did not arrive encrypted."
    End



End_Procedure