关于VBA读取OUTLOOK邮件时间排序问题

各位老师，

      我用以下代码可以读取自己OUTLOOK邮箱内容，我现在遇到的问题是此代码会读取所有收件箱内容，这样效率太低，我想读取最近一段时间的邮件 （比如最近15天）。不知道有什么办法吗？

我需要实现的是：我有一个代码清单，我需要对清单中每个代码在最近的邮件主题中找，看是否有主题包含此代码的邮件。

 Dim myolApp As Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myTasks As Outlook.MAPIFolder
    Dim myFolder As Outlook.MAPIFolder
    Dim rst    As DAO.Recordset
    Dim i      As Integer
    Dim j      As Byte
    Dim k      As Integer
    Dim l      As Integer

    Set myolApp = CreateObject("Outlook.Application")
    Set myNamespace = myolApp.GetNamespace("MAPI")
    Set myTasks = myNamespace.GetDefaultFolder(olFolderInbox)

   myTasks.Items.Sort "ReceivedTime", -1    '时间排序不正确
    For i = 1 To myTasks.Items.Count
        With myTasks.Items.Item(i)
                                 If i > 13805 Then
                MsgBox .SenderName & .ReceivedTime & .Subject
                                 End If
        End With
    Next