PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV (précédentes versions) → Récupération fichier attaché reception avec Email.Attache
Récupération fichier attaché reception avec Email.Attache
Débuté par Fred2355, 20 mar. 2017 10:34 - Aucune réponse
//hostimage.webdev.info/avatars/hVOtS3q9SebzGYE8j9zA
Membre enregistré
95 messages
Posté le 20 mars 2017 - 10:34
Bonjour à tous,

J'essaie de récupérer les pièces jointes de messages reçus avec la fonction Email.attaché avec les exemples fournis par les tuto dans le WinDev20.

Voici ce que j'ai écrit.
------
MaSession est une EmailSessionIMAP
MaSession..AdresseServeur = "serveurimpa"
MaSession..Nom = "moncompte"
MaSession..MotDePasse = "monMdP"
MaSession..Port="993"
MaSession..Option=optionSSL
sRepertoirePJ est une chaîne = ComplèteRep(SysRep(srAppDataCommun)) + "MonProjet\Pieces Jointes\"

EmailOuvreSession(MaSession)
TableSupprimeTout(Table_mail)

SI PAS fRépertoireExiste(sRepertoirePJ) ALORS fRepCrée(sRepertoirePJ)

i=0

POUR TOUT MessageEmail NON LU DE MaSession
i=i+1

TableAjouteLigne(Table_mail,MessageEmail..Sujet,MessageEmail..AdresseExpéditeur,MessageEmail..Expediteur)EmailSauveFichierAttaché(Email.Attache[i],sRepertoirePJ + Email.Attache[i])
Trace(i, MessageEmail..Sujet,Email.Attache[i])

FIN

Et je récupère tout, sauf les pièces jointes.

Qu'est ce que j'ai oublié?
Merci pour votre aide.