Outlook VBA，如何仅删除超过90天的电子邮件

Sub DeleteOldEmails()
    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 olRestrictItems As Outlook.Items
    Dim olRestrictMail As Outlook.MailItem
    Dim olDeleteFolder As Outlook.Folder
    Dim olDeleteItems As Outlook.Items
    
    ' 创建Outlook应用程序对象
    Set olApp = New Outlook.Application
    ' 获取当前Outlook会话
    Set olNamespace = olApp.GetNamespace("MAPI")
    ' 获取收件箱文件夹
    Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox)
    ' 获取收件箱中的所有邮件
    Set olItems = olFolder.Items
    
    ' 设置过滤条件，仅获取超过90天的邮件
    Set olRestrictItems = olItems.Restrict("[ReceivedTime] < '" & Format(Date - 90, "ddddd h:nn AMPM") & "'")
    
    ' 创建一个用于删除邮件的文件夹
    Set olDeleteFolder = olNamespace.GetDefaultFolder(olFolderDeletedItems)
    ' 获取删除文件夹中的所有邮件
    Set olDeleteItems = olDeleteFolder.Items
    
    ' 遍历符合条件的邮件并删除
    For Each olMail In olRestrictItems
        ' 将邮件移动到删除文件夹
        Set olRestrictMail = olDeleteItems.Add(olMail)
        ' 删除邮件
        olRestrictMail.Delete
    Next olMail
    
    ' 释放对象
    Set olRestrictMail = Nothing
    Set olDeleteItems = Nothing
    Set olDeleteFolder = Nothing
    Set olRestrictItems = Nothing
    Set olItems = Nothing
    Set olFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
    
    MsgBox "已删除超过90天的电子邮件。"
End Sub