Copie de contenu d'e-mails vers un fichier txt

Soyez le premier à donner votre avis sur cette source.

Vue 5 706 fois - Téléchargée 340 fois

Télécharger le projet
Commenter

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

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)
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler Commenter la réponse de cs_Alain
cs_Alain
Messages postés
58
Date d'inscription
lundi 31 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
 -
dommage j'ai un message d'erreur d'éxécution "429" (le composant activex ne peut créer l'objet).
Signaler Commenter la réponse de samersahih
samersahih
Messages postés
2
Date d'inscription
mardi 11 décembre 2007
Statut
Membre
Dernière intervention
13 janvier 2008
 -
genial :)
Signaler Commenter la réponse de moosdu54
moosdu54
Messages postés
1
Date d'inscription
samedi 7 juin 2008
Statut
Membre
Dernière intervention
9 avril 2011
 -
je suis sous seven et outlook 2003 pro, le script tourne crée le fichier texte mais n'écrit pas le "contenumail".
il semble que la boucle for ne passe pas à l'execution même en mettant un f.write(I) pour controler
des idées ?
S'inscrire maintenant

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.