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())

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