How to filter outlook emails for a specific date

[abhay_547]

I have the below macro which I use to download the email attachments from out with specific subject lines which are listed in an excel now i want to apply a filter on date .i.e. it should download the attachments from emails received on a specific date referred from a excel worksheet cell. I don't want to use a date range, I just want to define a specific date...

Sub Downloademailattachementsfromexcellist()
Dim olApp As Object
Dim olNS As Object
Dim olItem As Object
Dim olRecip As Object
Dim olShareInbox As Object
Dim lRow As Integer
Dim olAttach As Object
Dim strPath As String
Dim strName As String
Dim xlSheet As Worksheet
Dim iRow as Integer
Dim MailRcvdDate As Date
MailRcvdDate = Format(ThisWorkbook.Sheets("Email Download").Range("E2").Value, "mm/dd/yyyy")

    Set olApp = OutlookApp("outlook.application")
    Set olNS = olApp.GetNameSpace("MAPI")
    '


 
    Set olShareInbox = olNS.GetDefaultFolder(olFolderInbox).Folders(ThisWorkbook.Sheets("Email Download").Range("E2").Value)
    
    Set xlSheet = ActiveWorkbook.Sheets("Email Download")
    strPath = "C:\HP" & xlSheet.Range("C1").value & ""

    If olShareInbox.Items.restrict("[UNREAD]=True").Count = 0 Then
        MsgBox ("No Unread mails")
    Else
        CreateFolders strPath    'ensure the save path is present
        For Each olItem In olShareInbox.Items.restrict("[UNREAD]=True")
            lRow = xlSheet.Range("A" & xlSheet.Rows.Count).End(xlUp).Row    ' + 1
lRow = xlSheet.Range("B" & xlSheet.Rows.Count).End(xlUp).Row        
       For Each olItem In olShareInbox.Items.restrict("[SentOn]= '"& MailRcvdDate &"' ")
            For iRow = 1 To lRow    'declare the variable iRow as integer
                'lRow = xlSheet.Range("A" & xlSheet.Rows.Count).End(xlUp).Row    ' + 1
                If InStr(1, olItem.Subject, xlSheet.Range("B" & iRow).value & "*") > 0 Then
                    If olItem.attachments.Count > 0 Then
                        For Each olAttach In olItem.attachments
                            strName = olAttach.FileName
                            olAttach.SaveAsFile strPath & strName
                            olItem.UnRead = False    
                       Next olAttach
                    End If
                    Exit For 'subject found so stop looking
                End If
            Next iRow
        Next olItem

    End If
End Sub