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

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

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.