4/5 (3 avis)
Vue 5 980 fois - Téléchargée 357 fois
Il y a 2 version : - la premiere crée UN SEUL fichier texte. - la deuxieme crée UN FICHIER PAR MAIL. IL S'AGIT DE SCRIPTS VBS et non plus de code vb. PREMIERE VERSION : Const ForReading = 1, ForWriting = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set objol = CreateObject("outlook.application") Set olfolder = objol.activeExplorer.currentfolder Curfolder = olfolder Set olfolderitems = olfolder.items numitems = olfolderitems.Count msgbox ("Il y a " & numitems & " E-Mails dans le dossier selectionné !") Set f = fso.CreateTextFile("C:\textunique.txt", ForWriting, True) For I = 1 To numitems Set olmyitem = olfolderitems(I) contenumail = olmyitem.body f.write (contenumail) next DEUXIEME VERSION : Dim nomfichier Const ForReading = 1, ForWriting = 2 Dim fso, f Set objol = CreateObject("outlook.application") Set olfolder = objol.activeExplorer.currentfolder Set objFSO = CreateObject("Scripting.FileSystemObject") Curfolder = olfolder Set olfolderitems = olfolder.items numitems = olfolderitems.Count MsgBox ("Nom du dossier en cours : " & Curfolder & vbLf & "Il y a " & numitems & " E-Mails dans ce dossier.") chemin = "C:\" numfichier = "1" For I = 1 To numitems nomfichier = "text" & numfichier & ".txt" Set olmyitem = olfolderitems(I) contenumail = olmyitem.body Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.CreateTextFile(chemin & nomfichier, ForWriting, True) f.Write (contenumail & Chr(13) & Chr(10)) Set f = fso.OpenTextFile(chemin & nomfichier, ForReading) WriteToFile = f.ReadLine numfichier = numfichier + 1 Next MsgBox (numfichier - 1 & " fichier(s) a/ont été crée dans le dossier : " & chemin)
9 avril 2011 à 11:56
il semble que la boucle for ne passe pas à l'execution même en mettant un f.write(I) pour controler
des idées ?
10 oct. 2009 à 02:12
25 août 2003 à 15:45
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.