Bonsoir,

je souhaiterais récupérer les informations dans le corps de mes messages Outlook qui sont tous formatés de la même façon:

...................................................................
Objet: Demande de dépannage
...................................................................

Bonjour,

Merci de bien vouloir intervenir :

Ville: Paris

Famille : Électroménager

Type : Lave linge

Description de la panne : Pompe vidange HS

Cordialement.
.......................................................................

J'ai bien récupérer ce code mais, en l'état, il m'exporte entièreté de tous mes mails ...
Que dois-je déclarer dans ce code pour exporter vers Excel les données souhaitées ?
Fichier Excel que je souhaite lier à la T_Intervention de ma BD.

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
19
20
21
22
23
24
25
26
27
Sub ExtractMessage()
 
Dim OLapp As Outlook.Application
Dim OLspace As Outlook.Namespace
Dim OLinbox As Outlook.MAPIFolder
Dim FileName As String
Dim Item As Object
Dim NoFile As Integer
 
Set OLapp = CreateObject("Outlook.application")
Set OLspace = OLapp.GetNamespace("MAPI")
Set OLinbox = OLspace.GetDefaultFolder(olFolderInbox)
 
NoFile = FreeFile
Open CurrentProject.Path & "\Message" & Messages & ".xls" For Append As #NoFile
 
For Each Item In OLinbox.Items
    Print #NoFile, Item.Body
Next Item
 
Close #NoFile
 
Set OLapp = Nothing
Set OLspace = Nothing
Set OLinbox = Nothing
 
End Sub
Merci à vous !