Bonjour à tous,

j'effectue en VBA une vérification des Emails reçus dans un répertoire, pour ceci, je sélectionne mon répertoire avec la procédure suivante :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Function GetFolder(ByVal FolderPath As String) As Outlook.folder
Dim TestFolder As Outlook.folder
Dim FoldersArray As Variant
Dim miTemp As Outlook.MailItem
Dim misTemp As Outlook.items
 
Dim i As Integer
 
    On Error GoTo GetFolder_Error
    If Left(FolderPath, 2) = "\\" Then
        FolderPath = Right(FolderPath, Len(FolderPath) - 2)
    End If
 
    'Convert folderpath to array
    FoldersArray = Split(FolderPath, "\")
    Set TestFolder = Application.Session.Folders.item(FoldersArray(0))
    If Not TestFolder Is Nothing Then
        For i = 1 To UBound(FoldersArray, 1)
            Dim SubFolders As Outlook.Folders
            Set SubFolders = TestFolder.Folders
            Set TestFolder = SubFolders.item(FoldersArray(i))
            If TestFolder Is Nothing Then
                Set GetFolder = Nothing
            End If
        Next
    End If
 
    'Tri sur Object/Body
    Set misTemp = TestFolder.items
    misTemp.Sort "[Body]", True
 
    'Return the TestFolder
    Set GetFolder = TestFolder
 
    Exit Function
 
GetFolder_Error:
    Set GetFolder = Nothing
    Exit Function
End Function
J'arrive à faire un tri sur l'objet "Outlook.MailItem", mais je ne sais pas comment l'appliquer à l'objet "Outlook.folder" pour pouvoir le parcourir chronologiquement (La propriété "Body" contient une valeur Date/Time sur la première ligne).

D'avance merci de votre aide.