Bonjour à tous,

Alors tout comme l'indique le nom de la discussion, je cherche à extraire le corps de texte d'un mail (cad seulement le message), l'enregistrer dans un fichier word (ou texte) et cela pour tous les messages de ma boite mail outlook.

J'ai déjà une base sur laquelle travailler :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub ExtractMessage()
 
Dim OLapp As Outlook.Application
Dim OLspace As Outlook.Namespace
Dim OLinbox As Outlook.MAPIFolder
 
Set OLapp = CreateObject("Outlook.application")
Set OLspace = OLapp.GetNamespace("MAPI")
Set OLinbox = OLspace.GetDefaultFolder(olFolderInbox)
 
MsgBox OLinbox.Items(1).Body
 
Set OLapp = Nothing
Set OLspace = Nothing
Set OLinbox = Nothing
 
End Sub
Mais, il faudrait que je boucle sur tous les messages de mon Inbox au lieu d'afficher qu'un seul message et que chaque message soit enregistré dans un fichier texte ou word différent.

Merci d'avance pour votre aide.

Cordialement,

Nitromard