[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
A voir également:
- [windev]extraction mail
- Windows live mail - Télécharger - Mail
- Publipostage mail - Accueil - Word
- Comment télécharger un mail - Guide
- Créer une adresse mail hotmail - Guide
- Cegetel mail ✓ - Forum Mail
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)
