VBA可在特定时间段内从用户创建的文件夹中删除Outlook邮件
我正在寻找一个VBA代码段来删除六个月或六个月以上的Outlook邮件,这些邮件位于用户创建的文件夹中VBA可在特定时间段内从用户创建的文件夹中删除Outlook邮件,vba,email,outlook,Vba,Email,Outlook,我正在寻找一个VBA代码段来删除六个月或六个月以上的Outlook邮件,这些邮件位于用户创建的文件夹中 代码是什么样子的?下面是一个示例脚本 Sub DeleteOlderThan6months() Dim oFolder As Folder Dim Date6months As Date Dim ItemsOverMonths As Outlook.Items Dim DateToCheck As String Date6months = DateAdd("d", -182, Now()
代码是什么样子的?下面是一个示例脚本
Sub DeleteOlderThan6months()
Dim oFolder As Folder
Dim Date6months As Date
Dim ItemsOverMonths As Outlook.Items
Dim DateToCheck As String
Date6months = DateAdd("d", -182, Now())
Date6months = Format(Date6months, "mm/dd/yyyy")
Set oFolder = Application.Session.PickFolder 'or set your folder
DateToCheck = "[Received] <= """ & Date6months & """"
Set ItemsOverMonths = oFolder.Items.Restrict(DateToCheck)
For i = ItemsOverMonths.Count To 1 Step -1
ItemsOverMonths.Item(i).Delete
Next
Set ItemsOverMonths = Nothing
Set oFolder = Nothing
End Sub