Thanks Jim

I reduced the function
Now it works fine and I dont need to use charset property

I got the decoded value directly with: "cFinalProduct = oStream.ReadText"


*************************

lcHtml = FILETOSTR( SYS(5)+ CURDIR()+ emails.msgtx_path)

oMsg = NEWOBJECT("CDO.Message")
oMsg.BodyPart.ContentTransferEncoding = "quoted-printable"

oStream = oMsg.BodyPart.GetEncodedContentStream
oStream.Writetext = lcHtml
oStream.Flush
oStream = oMsg.BodyPart.GetDecodedContentStream()
cFinalProduct = oStream.ReadText

*************************************