[windev]extraction mail
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour à tous !
Voilà, je cherche à extraire des fichiers joints de mail sous windev. (je suis débutant)
Je fais ceci :
(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
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:\test\test.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:\test.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
1 réponse
-
solution :
I est un entier = 0 Email.Source = fChargeTexte("D:\test\test.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)
