如何将MailItem.ReceivedTime与Excel单元格值进行比对验证？

你的代码核心问题是日期类型不匹配导致判断逻辑失效：
MailItem.ReceivedTime是Outlook的日期时间类型，而Excel单元格Range("C6").Value返回的是Excel专属的日期序列值（本质是数字），直接用>比较时，VBA的隐式类型转换会打乱判断逻辑，出现"判断总是成立"的异常。

1. 统一日期类型 #

先将Excel单元格的日期转换为VBA标准Date类型，再与邮件接收时间做比较，避免类型冲突。

2. 优化判断位置 #

原代码把日期判断放在附件循环内，会对同一封邮件的所有附件重复判断，完全没必要，将判断移到附件循环外可提升执行效率。

3. 完整修复代码 #

Option Explicit

Sub Download_Outlook_Attachments()
    Dim olAPP As Outlook.Application
    Dim olNS As Outlook.Namespace
    Dim olFolder As Outlook.MAPIFolder
    Dim olItem As Object
    Dim MailItem As Outlook.MailItem
    Dim olAtt As Outlook.Attachment
    Dim targetDate As Date
    Dim savePath As String
    
    ' 初始化Outlook对象
    Set olAPP = New Outlook.Application
    Set olNS = olAPP.GetNamespace("MAPI")
    
    ' 指定目标邮件文件夹
    Set olFolder = olNS.Folders("John@work.com")
    Set olFolder = olFolder.Folders("Inbox")
    Set olFolder = olFolder.Folders("Work Requests")
    
    ' 读取并转换Excel中的目标日期
    targetDate = ThisWorkbook.Worksheets("Email_Info").Range("C6").Value
    ' 定义附件保存路径（必须带末尾反斜杠）
    savePath = "C:\Users\John Smith\Desktop\WOR Email Download\"
    
    ' 遍历文件夹内邮件
    For Each olItem In olFolder.Items
        If olItem.Class = olMail Then
            Set MailItem = olItem
            
            ' 先判断日期，再处理附件
            If MailItem.ReceivedTime > targetDate Then
                For Each olAtt In MailItem.Attachments
                    olAtt.SaveAsFile savePath & olAtt.Filename
                Next olAtt
            End If
        End If
    Next olItem
    
    ' 释放对象资源
    Set olAtt = Nothing
    Set MailItem = Nothing
    Set olFolder = Nothing
    Set olNS = Nothing
    Set olAPP = Nothing
    
    MsgBox "附件下载完成！", vbInformation
End Sub

额外注意事项 #

• 确保Excel的C6单元格是日期格式，如果是文本格式，需改用targetDate = CDate(ThisWorkbook.Worksheets("Email_Info").Range("C6").Value)做强制转换
• 保存路径末尾必须加反斜杠\，否则会把文件名拼接到路径末尾，导致保存失败
• 可按需添加错误处理，避免文件重名、路径不存在等问题中断代码执行

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