Pour utiliser ce code vous devez IMPERATIVEMENT avoir Outlook ouvert.
Il suffit de créer un fichier txt et d'y coller une des versions ci-dessous et de renommer le fichier en .vbs
Source / Exemple :
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)
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.