Copie de contenu d'e-mails vers un fichier txt
4/5 (3 avis)
Vue 5 980 fois - Téléchargée 357 fois
Description
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
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)
Codes Sources
A voir également
- Createtextfile vbscript
- Fso.createtextfile - Meilleures réponses
- URGENT!!! Copie du contenu d'un dossier vers un autre ✓ - Forum - Visual Basic
- Chercher des adresses e-mail dans les fichiers - Codes sources - C / C++ / C++.NET (Chaînes de caractères)
- Exporté le contenu d'une textbox vers un fichier text ✓ - Forum - Visual Basic 6
- Exportation des données access vers un fichier txt en VB6 ✓ - Forum - Visual Basic 6
- Recherche de valeur dans un fichier Excel vers un fichier txt VBA ✓ - Forum - VB.NET
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.