VBA中Folder.GetTable传递SentOn日期参数的语法问题求助

嘿，我来帮你搞定这个日期筛选的问题！你之前的写法有两个关键问题：一是日期参数的格式不符合Outlook Jet查询引擎的要求，二是误用了适合文本字段的*通配符（日期字段不支持这种写法）。下面给你详细的解决方案：

核心规则：日期字段的筛选语法 #

在Outlook的GetTable筛选字符串中，日期/时间字段必须用#符号包裹，而且日期字符串的格式要统一（避免系统区域设置干扰）。推荐用YYYY-MM-DD格式，这种格式不受区域影响，兼容性最好；也可以用MM/DD/YYYY格式，但要注意系统日期设置的匹配。

另外要注意：SentOn是日期时间类型字段，如果想筛选某一天的所有邮件，不能直接写[SentOn] = 日期（因为邮件的发送时间包含时分秒），应该用范围查询：匹配当天0点到第二天0点之间的邮件。

正确代码示例 #

方法1：筛选指定日期的所有邮件（推荐）

Dim justDate As Date
Dim filterStr As String
Set objTable = Nothing

' 设置要筛选的目标日期，这里可以换成你需要的具体日期，比如 #10/05/2024#
justDate = Date

' 构建筛选字符串：匹配SentOn在目标日期当天0点到次日0点之间的邮件
filterStr = "[SentOn] >= #" & Format(justDate, "YYYY-MM-DD") & "# " & _
            "AND [SentOn] < #" & Format(DateAdd("d", 1, justDate), "YYYY-MM-DD") & "#"

' 执行查询
Set objTable = Folder.GetTable(filterStr)

方法2：精确匹配某一个日期时间（特殊场景用）

如果你确实需要匹配某个精确到时分秒的发送时间，可以这样写：

filterStr = "[SentOn] = #" & Format(justDate, "YYYY-MM-DD HH:NN:SS") & "#"
Set objTable = Folder.GetTable(filterStr)

为什么你之前的写法无效？ #

• 误用*通配符：这个符号是用于文本字段的模糊匹配，日期/时间字段不支持，会直接导致查询语法错误。
• 直接拼接Date变量：VBA会把Date类型按系统区域设置转成字符串，比如欧洲区域会输出DD/MM/YYYY格式，但Outlook的Jet引擎默认识别MM/DD/YYYY，这就会导致日期解析错误，自然查不到数据。

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