如何使用VBA选择日期范围内的电子邮件项目？

Sub SelectEmailsByDateRange()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olFolder As Outlook.Folder
    Dim olItems As Outlook.Items
    Dim olMail As Outlook.MailItem
    Dim startDate As Date
    Dim endDate As Date
    
    ' 设置起始日期和结束日期
    startDate = #1/1/2022#
    endDate = #1/31/2022#
    
    ' 创建Outlook应用程序对象
    Set olApp = New Outlook.Application
    ' 获取默认的邮件文件夹
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox)
    ' 获取邮件文件夹中的所有邮件项
    Set olItems = olFolder.Items
    
    ' 遍历所有邮件项
    For Each olMail In olItems
        ' 判断邮件项的接收日期是否在指定的日期范围内
        If olMail.ReceivedTime >= startDate And olMail.ReceivedTime <= endDate Then
            ' 在此处执行对符合条件的邮件项的操作，例如打印邮件主题
            Debug.Print olMail.Subject
        End If
    Next olMail
    
    ' 释放对象
    Set olMail = Nothing
    Set olItems = Nothing
    Set olFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub