Information générale
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
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
*************************************
Précédent
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