vba 获取outlook今天的邮件信息

在VBA (Visual Basic for Applications) 中，你可以通过Microsoft Outlook对象模型来获取今天的邮件信息。以下是一个简单的示例，演示如何获取收件箱中今天日期范围内的新邮件：

Sub GetTodayEmails()
    Dim olApp As Object
    Dim olNs As Object
    Dim olFolder As Object
    Dim olMail As Object
    Dim dateToday As Date
    Dim i As Integer
    
    ' 创建Outlook应用和命名空间实例
    Set olApp = CreateObject("Outlook.Application")
    Set olNs = olApp.GetNamespace("MAPI")
    
    ' 设置今天日期
    dateToday = Now()
    
    ' 获取收件箱
    Set olFolder = olNs.GetDefaultFolder(olFolderInbox)
    
    ' 过滤获取今天及以后的邮件
    With olFolder.Items.Restrict("[ReceivedTime] >= '" & Format(dateToday, "ddddd, mmmm d, yyyy h:mm:ss AM/PM") & "'")
        ' 遍历并显示邮件标题
        For Each olMail In .Items
            Debug.Print olMail.Subject ' 可替换为你需要的操作，如添加到集合、保存等
            i = i + 1
        Next olMail
    End With
    
    ' 清理引用
    Set olMail = Nothing
    Set olFolder = Nothing
    Set olNs = Nothing
    Set olApp = Nothing
    
End Sub

这个脚本会获取收件箱中今天及之后收到的所有邮件，并打印出它们的标题。请注意，在实际使用中，你可能需要根据具体需求对代码进行调整。