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.
Merci
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
Partager