|
FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile |
| | | | | |
| Débuté par Ludwig, 19 avr. 2026 13:41 - 1 réponse |
| |
| | | |
|
| |
Membre enregistré
34 messages |
|
| Posté le 19 avril 2026 - 13:41 |
Bonjour à tous,
Je rencontre un problème pour sauvegarder les pièces jointes d'un mail.
Les fichiers s'enregistrent dans le bon dossier, avec le bon nom de fichier, avec la bonne extension mais le contenu reste vide.
Ci-dessous le code et merci d'avance pour votre aide.
EmailOuvreSession(MaSession)
tabEmailNonLus = EmailRécupèreTout(MaSession, ertNonLus)
POUR TOUT MonEmail de tabEmailNonLus
sRepertoirePJ est une chaîne = "C:\Temp\"
SI PAS fRépertoireExiste(sRepertoirePJ) ALORS fRepCrée(sRepertoirePJ)
nNbAttache = MonEmail.Attache.Occurrence
POUR i = 1 À nNbAttache
sNomAttache = MonEmail.Attache[i].Nom
SI PAS EmailSauveFichierAttaché(MonEmail.Attache[i], sRepertoirePJ + sNomAttache) ALORS
Info("Erreur")
FIN
FIN
FIN
EmailFermeSession(MaSession)
|
| |
| |
| | | |
|
| | |
| |
| Posté le 09 mai 2026 - 19:01 |
Bonjour Ludwig
Tu vas rire : ton code fonctionne très bien 
Le problème vient peut être de la source ?
Tente ceci:
sFichierAttache=MonEmail.Attache[i].Contenu
SI PAS fSauveBuffer( sRepertoirePJ+sNomAttache,sFichierAttache) ALORS
Info("Erreur :"+fRepEnCours()+"\"+sNomAttache)
FIN
(note : toutes les pièces jointes vont se mélanger dans le même répertoire...  )
Salut !  |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|