PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV (précédentes versions) → [WD24]EmailSauveFichierAttaché et format UUEncode
[WD24]EmailSauveFichierAttaché et format UUEncode
Débuté par Matthieu Legrand, 04 fév. 2025 15:54 - Aucune réponse
Posté le 04 février 2025 - 15:54
Bonjour à tous

Mon application lit des mails au format eml, sans utiliser de clients mails.

Elle extrait les pièces jointes pour les traiter par la suite.

Sur certains mails, le pdf joint est illisible.

bufCheminFichier est un Buffer = "E:\Reception\308938__202501221400.50ME053n002505@erp2d.corporate.ge.com_.eml.eml"
Email.Source = fChargeBuffer(bufCheminFichier)
SI EmailImporteSource() ALORS
sFichierExtrait est une chaîne = "E:\Reception\test.pdf"
EmailSauveFichierAttaché(Email.Attache[1], sFichierExtrait)
contenuFichier est un Buffer = fChargeBuffer(sFichierExtrait)
bufNouveauFichierdecode est un Buffer = Decode(contenuFichier,encodeUUEncode)
fichierDestination est un entier = fOuvre("E:\Reception\test_decode.pdf",foCréation)
fEcrit(fichierDestination,bufNouveauFichierdecode)
FIN


Le fichier test.pdf est illisible.
Si j'ouvre le fichier avec par exemple Notepad++ j'ai le contenu suivant en début de fichier :

begin 600 IP001398.pdf
M)5!$1BTQ+C,-"B7UY/;\#0H-"C<@,"!O8FH@/#P@+U1Y<&4@+UA/8FIE8W0-
M"B]3=6)T>7!E("]);6%G90T*+TYA;64@+TDQ#0HO5VED=&@@-3@V#0HO2&5I
M9VAT(#$U-0T*+T)I='-097)#;VUP;VYE;G0@.`T*+T-O;&]R4W!A8V4@+T1E.....


Ce qui m'a permis de déduire qu'il s'agissait d'un fichier uuencode.

Donc j'ai évidemment chargé le contenu dans un buffer, pour le décoder avec le format UUEncode.

Si j'ouvre la pièce jointe et que je l'enregistre manuellement, elle est parfaitement lisible et lorsque j'utilise notepad++ elle a un contenu qui commence par ça :

%PDF-1.3
%õäöü
 
7 0 obj << /Type /XObject
/Subtype /Image
/Name /I1
/Width 586
/Height 155
/BitsPerComponent 8
/ColorSpace /DeviceRGB
/Length 87571 /Filter [ /ASCII85Decode /FlateDecode ] >>
stream
Gb",k#FlMt[f>1`]&E%ZY.CcEGCAfFgJq<@_D&k]"&."&$"RXUEb*7"a>rFbU*)H@MIK&<#


La pièce jointe décodée par Windev n'est pas lisible et a le contenu qui commence par ça :

/Subtype /Image
/Name /I1
/Width 586
/Height 155
/BitsPerComponent 8
/ColorSpace /DeviceRGB
/Length 87571 /Filter [ /ASCII85Decode /FlateDecode ] >>
stream
Gb",k#FlMt[f>1`]&E%ZY.CcEGCAfFgJq<@_D&k]"&."&$"RXUEb*7"a>rFbU*)H@MIK&<#


Si je rajoute

%PDF-1.3
%õäöü
 
7 0 obj << /Type /XObject


en début de fichier il devient maintenant visible.

Est ce que quelqu'un a déjà rencontré ce genre de problème avec windev ?

Merci d'avance