使用VBA筛选Outlook 2010任务

Sub FilterTasks()
    Dim olApp As Outlook.Application
    Dim olNs As Outlook.Namespace
    Dim olFolder As Outlook.Folder
    Dim olItems As Outlook.Items
    Dim olTask As Outlook.TaskItem
    Dim olFilteredItems As Outlook.Items
    Dim olFilteredTask As Outlook.TaskItem
    Dim strFilter As String
    
    ' 创建Outlook应用程序对象
    Set olApp = New Outlook.Application
    ' 获取当前Outlook会话
    Set olNs = olApp.GetNamespace("MAPI")
    ' 获取默认任务文件夹
    Set olFolder = olNs.GetDefaultFolder(olFolderTasks)
    ' 获取所有任务项
    Set olItems = olFolder.Items
    
    ' 设置筛选条件
    strFilter = "[DueDate] <= '" & Format(Date, "ddddd") & "'"
    
    ' 使用筛选条件过滤任务项
    Set olFilteredItems = olItems.Restrict(strFilter)
    
    ' 遍历筛选后的任务项
    For Each olTask In olFilteredItems
        ' 处理筛选后的任务项
        ' 例如，可以将任务项的信息输出到Excel表格中
        Debug.Print olTask.Subject & " - " & olTask.DueDate
    Next olTask
    
    ' 释放对象
    Set olFilteredTask = Nothing
    Set olFilteredItems = Nothing
    Set olTask = Nothing
    Set olItems = Nothing
    Set olFolder = Nothing
    Set olNs = Nothing
    Set olApp = Nothing
End Sub