Фильтр по дате Otlook из Excel

[Rojohn]

Добрый день!
Подскажите, если знаете, как правильно написать условие для фильтра почты Outlook, чтобы достать все письма, полученные за конкретную дату, без перебора всех писем. Есть код:

Filter = "([ReceivedTime] > '" & Format(DateAdd("d", -1, dat), "dd.MM.yyyy") & "') AND ([ReceivedTime] < '" & Format(DateAdd("d", 1, dat), "dd.MM.yyyy") & "')"
        If Fldr.Items.count <> 0 Then
          Set myOLItems = Fldr.Items.Restrict(Filter)
          For Each myItem In myOLItems
            With myItem 'Новое письмо

но беруться и письма за предыдущую дату. Вероятно играет роль время в дате, хотя и не должно. Подскажите как написать правильно