Bonjour à tous

Je cherche à retrouver des mails envoyé à des dates et heures précise, dans l'ensemble pas trop de lézard mais quand je recherche dans des dossiers spécifiques la macro ne trouve aucun mails alors qu'il y en a.
Côté outlook je doit cliquer sur un lien pour "faire apparaitre plus d'élements exchange", j'imagine qu'ils sont anciens donc archiver sur serveur!?

Avez vous une solution? voici mon code
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
41
42
43
44
45
46
 
Public Sub Mail()
 
    'Déclarations
    Dim MonApp As Outlook.Application
    Dim MonMail As Object
    Dim MonNameSpace As Outlook.NameSpace
    Dim email As Outlook.MailItem
 
 
    'Instance des objets
    Set MonApp = Outlook.Application
    Set MonNameSpace = MonApp.GetNamespace("MAPI")
    'Set MonMail = Application.Session.GetItemFromID(EntryIDCollection)
 
 
    Set myOlApp = CreateObject("Outlook.Application")
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myfolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders(14)
 
    'Compte le nombre de mail dans la boite de reception
    longueur = myfolder.Items.Count
 
        For i = 1 To longueur
 
        'recupere les info du mail
        Set myitem = myfolder.Items(i)
        V_date = myitem.ReceivedTime
        heure = Mid(myitem.ReceivedTime, 12, 20)
        V_date = Mid(V_date, 1, 10)
        NbrDate = Weekday(V_date)
        Jour = WeekdayName(NbrDate, False, vbSunday)
        V_Exp = myitem.SenderName
 
 
            If V_date < "01/01/2020" Then
            If Jour = "samedi" Or Jour = "Dimanche" Then
                With myitem
                ' fais ce que tu veux
                MsgBox ("Le " & Jour & " " & V_date & " " & Nom & " " & V_Exp)
                End With
            End If
            End If
        Next i
 
End Sub