Macro : Extraire une donnée dans un message
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».
Citation:
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:
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.
