[windev]extraction mail Fermé

Question

Bonjour à tous !

Voilà, je cherche à extraire des fichiers joints de mail sous windev. (je suis débutant)

Je fais ceci :


I est un entier = 0
Email.Ouvre = "D:	est	est.eml"
POUR I = 1 A Email.NbAttache
	ListeAjoute(LISTE_attache, Email.Attache[I])
FIN


Select est un entier = ListeSelect(LISTE_attache)
NomFichier est une chaîne
NomFichier = "D:	est.zip"
EmailSauveFichierAttaché(LISTE_attache[1], NomFichier)


(j'en suis qu'aux test)

mais ça ne marche pas.. je suppose que c'est à l'ouverture du mail ou un truc du genre ... quelqu'un peu-il m'aider?
merci d'avance ! 
naga

Utilisateur anonyme · Answer

solution : 

I est un entier = 0

Email.Source = fChargeTexte("D:	est	est.eml") 
SI EmailImporteSource() = Vrai ALORS
	Info("Fichier test.eml importé")
FIN

POUR I = 1 A Email.NbAttache
	ListeAjoute(LISTE_attache, Email.Attache[I])
FIN

Select est un entier = ListeSelect(LISTE_attache)
NomFichier est une chaîne
NomFichier = "D:\"+ LISTE_attache[1]
Info(NomFichier)
EmailSauveFichierAttaché(LISTE_attache[1], NomFichier)

[windev]extraction mail

1 réponse

Discussions similaires