bonsoir Matthieu
cette macro extrait les corps de messages de tous les mails de la boite de réception
les informations sont insérées dans la colonne A de la feuille active
Sub extractionCorpsMessagesMails()
'necessite d'activer la reference Microsoft Outlook xx.x Object Library
Dim OLapp As Outlook.Application
Dim OLspace As Outlook.NameSpace
Dim OLinbox As Outlook.MAPIFolder
Dim OLmail As Outlook.MailItem
Dim i As Integer
Set OLapp = CreateObject("Outlook.application")
Set OLspace = OLapp.GetNamespace("MAPI")
Set OLinbox = OLspace.GetDefaultFolder(olFolderInbox)
For Each OLmail In OLinbox.Items
i = i + 1
Cells(i, 1) = Application.Substitute(OLmail.Body, vbCrLf, vbLf)
Next
End Sub
bonne soirée
MichelXld