| 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)
|
| |
| |
|