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 :
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.
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
Merci d'avance pour votre aide.
Cordialement,
Nitromard
Partager