Excel VBA中Outlook Items.Restrict对不同时间区间处理不一致

Outlook的Items.Restrict方法对日期时间筛选的格式要求严格，你的代码出现错误主要源于两点：

1. 使用12小时制格式导致解析异常：h:n是12小时制格式，凌晨4:50缺少AM标识，Outlook无法正确识别该时间点，直接导致筛选条件失效；
2. 多余的字符串转换操作：先将DateTime变量转成字符串再格式化，可能引入不必要的格式偏差，直接对DateTime变量执行格式化更可靠。

将格式改为24小时制的MM/DD/YYYY HH:NN，同时去掉多余的CStr转换：

' 已有必要的Outlook变量声明和引用，DateTime变量strT和EndT

restrictfilter = "[ReceivedTime] > '" & Format(strT, "MM/DD/YYYY HH:NN") & "' AND [ReceivedTime] <= '" & Format(EndT, "MM/DD/YYYY HH:NN") & "'"
Set olItems = olFolder.Items.Restrict(restrictfilter)
allitemscount = olItems.Count

• 筛选前建议对Items集合按收件时间排序，避免潜在的排序异常：

  olFolder.Items.Sort "[ReceivedTime]", olAscending
  

• 可以通过Debug.Print restrictfilter输出最终筛选字符串，验证格式是否符合预期，比如正确格式应为：

  [ReceivedTime] > '06/15/2024 04:50' AND [ReceivedTime] <= '06/15/2024 23:59'
  

内容的提问来源于stack exchange，提问作者Somdeb Roy