Redemption GetDecryptedMessage to remove encryption from email RRS feed

  • Question

  • Hi all

    I have an encrypted email which I want to decrypt with Redemption and save the decrypted message to disk. Using the code example from the official Redemption site the body of the decrypted message is empty.

    set Session = CreateObject("Redemption.RDOSession")
    Session.MAPIOBJECT = Application.Session.MAPIOBJECT
    set Msg = Session.GetMessageFromMsgFile("z:\Temp\Encrypted.msg ")
    set DecryptedMsg = Msg.GetDecryptedMessage

    MsgBox DecryptedMsg.Body

    Can someone help or give me a hint how to solve this issue?

    Thanks and regards


    Tuesday, February 18, 2014 12:46 PM

All replies

  • Hello LuceBree,

    Did you try to debug? Do you see another properties of the decrypted message?

    Anyway, I'd recommend contacting the Redemption developer at .

    Tuesday, February 18, 2014 1:05 PM
  • Hi Eugene

    Yes, I did. I can see other properties as Subject, SenderName, MessageClass, etc. but not the body of the message.

    Maybe there is an issue with the encrpytion?

    CertificateAlgorithmOID : <Error in CryptMsgGetParam: Invalid cryptographic message type.> : String

    I will contact the developer anyway, thanks.

    Tuesday, February 18, 2014 1:15 PM
  • Can you zip that MSG file and send it to Dmitry at dimastr dot com?


    Dmitry Streblechenko (MVP)
    Redemption - what the Outlook
    Object Model should have been
    Version 5.5 is now available!

    Tuesday, February 18, 2014 1:58 PM