Information générale
Titre:
Decode quoted printable
Versions des environnements
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")
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement