Macro excel : Lire date création du mail initial
Bonjour,
J'aimerai savoir comment faire pour connaitre la date de creation d'un mail qui est parti du premier émétteur, sachant qu'il y a eu plusieurs echanges.
Par contre, j'arrive bien à obtenir la derniere date/heure du mail recu.
Mon but est de savoir combien de temps un mail à parcouru (en passant par plusieurs personnes) pour arriver dans ma boîte générique.
Pour cela, j'aimerai calculer ce temps à partir de la date de début de création intiale (1er mail) =>../../..=> date de reception
Merci pour votre aide.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Sub LitMessagerie()
Set olApp = CreateObject("Outlook.Application")
Set olns = olApp.GetNamespace("MAPI")
Set olxFolder = olns.GetDefaultFolder(6) ' olns.GetDefaultFolder(olFolderInbox)
Sheets("Litmessagerie").Select
On Error Resume Next
n = 2
For Each i In olxFolder.Items
Cells(n, 1) = i.Subject
'Cells(n, 2).ClearComments
'Cells(n, 2).AddComment Text:=Replace(i.Body, Chr(13), "")
'Cells(n, 2).Comment.Shape.Height = 150
'Cells(n, 2).Comment.Shape.Width = 300
Cells(n, 2) = i.EntryID
Cells(n, 3) = i.SenderName
Cells(n, 4) = i.CreationTime
n = n + 1
Next
End Sub |
Merci
