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 : 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
 
 
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