Outlook 2016 VBA -通过代码运行清理文件夹

Sub CleanFolder()
    Dim objFolder As Outlook.Folder
    Dim objItems As Outlook.Items
    Dim objMail As Outlook.MailItem
    Dim objProperty As Outlook.UserProperty
    Dim objRestriction As Outlook.Restrict
    Dim strFilter As String
    Dim dtExpirationDate As Date
    
    ' 设置要清理的文件夹
    Set objFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    
    ' 设置过期日期，例如删除30天前的邮件
    dtExpirationDate = Date - 30
    
    ' 获取文件夹中的所有邮件
    Set objItems = objFolder.Items
    
    ' 设置过滤条件，仅选择发送日期早于过期日期的邮件
    strFilter = "[SentOn] < '" & Format(dtExpirationDate, "ddddd h:nn AMPM") & "'"
    
    ' 应用过滤条件
    Set objRestriction = objItems.Restrict(strFilter)
    
    ' 遍历符合条件的邮件并删除
    For Each objMail In objRestriction
        objMail.Delete
    Next objMail
    
    ' 释放对象
    Set objFolder = Nothing
    Set objItems = Nothing
    Set objMail = Nothing
    Set objProperty = Nothing
    Set objRestriction = Nothing
End Sub