Bonjour,

Je souhaite extraire dans mon message mail, la date d’envoi « À : Creati-Fiche-Central (ENTREPRISE SA) » indiqué dans le texte vers mon fichier Excel.

Pour cet exemple ce sera «mardi 29 mars 2011 18:09».


Je …. Xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Xxxxxxxxxxx
Xxx
X



De : Laurent Michel (ENTREPRISE SA)
Envoyé : mardi 29 mars 2011 18:09
À : Creati-Fiche-Central (ENTREPRISE SA)
Objet : TR: FICHE


Je …. Xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Xxxxxxxxxxx
Xxx
X
Je bloque sur ce code. Pourriez vous svp m’aider ?

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
Sub LitMessagerie()
  Set olApp = CreateObject("Outlook.Application")
  Set olns = olApp.GetNamespace("MAPI")
  Set olxFolder = olns.GetDefaultFolder(6) ' olns.GetDefaultFolder(olFolderInbox)
  Sheets("Litmessagerie").Select
 
  Set myDestFolderADM = olns.GetDefaultFolder(6).Folders("3- TRAITER")
  On Error Resume Next
  n = 2
  For Each i In myDestFolderADM.Items 'olxFolder.Items
 Cells(n, 1) = i.Subject
 
MonBody = i.Body
 
Crea = Mid(MonBody, InStr( MonBody, " Creati-Fiche-Central (ENTREPRISE SA)") ,- 20)
Cells(n, 4) = Crea
 
 Next
 
End Sub
Merci d’avance.