Discussion :

[Tchicken]

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.

[goninph]

Bonjour,

Je recherche également une solution pour afficher les résultats d'une recherche avec le mail le plus récent en haut de l'affichage.

Selon certain forum, cette fonction de tri de la fenêtre d'affichage ne serait pas possible sur Outlook, mais je n'en suis pas convaincu, car tout est possible sur cette planète.

Meilleures salutations