I finally managed to decode quoted printable ( something as: " * "Atualiza=E7=E3o do anti-v=EDrus"
"

If someone need it, that's below


lcHtml = FILETOSTR( SYS(5)+ CURDIR()+ emails.msgtx_path) && txt file to be decoded

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

Stream = oMsg.BodyPart.GetEncodedContentStream
oStream.Writetext = lcHtml && txt file to be decoded
Stream.Flush
Stream = oMsg.BodyPart.GetDecodedContentStream()
Stream.SaveToFile("c:\" + SYS(2015) + ".txt")