PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV (earlier versions) → Récupération fichier attaché reception avec Email.Attache
Récupération fichier attaché reception avec Email.Attache
Started by Fred2355, Mar., 20 2017 10:34 AM - 2 replies
#1
Registered member
231 messages
Posted on March, 20 2017 - 10:34 AM
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.
#2
Posted on July, 05 2024 - 7:29 PM
J'AI SUPRIME QLQES FICHIERS ATTACHEES AUX MESSAGES ENVOYER AINSI AUX AUTRES RECEPTIONNER AFIN DE LIBERER L'ESPACE J'AIMERAI BIEN LES RECUPERER QUE DOIT JE FAIRE ?
#3
Registered member
4,123 messages
Posted on July, 08 2024 - 11:12 AM
1-Ne pas hurler
2-Dire bonjour

--
Il y a peut être plus simple, mais, ça tourne
→ Go back to WINDEV (earlier versions)