VBA код для удаления писем через x дней

Я пытаюсь удалить все электронные письма в моем почтовом ящике старше 90 дней. Я не могу использовать автоархив, так как он был отключен в моем офисе. У меня есть код, который не удаляет каждое письмо старше 90 дней. Я думаю, что проблема может быть с моей петлей. Я использую Outlook 2010 с Exchange 2010.

Private Sub RemoveEmail90()

Dim olSession As Outlook.Application, olNamespace As NameSpace
Dim olInbox As Outlook.MAPIFolder
Dim i As Integer
Set olSession = New Outlook.Application
Set olNamespace = olSession.GetNamespace("MAPI")
Set olInbox = olNamespace.GetDefaultFolder(olFolderInbox)
Set Delete_Items = olInbox.Items

For i = Delete_Items.Count To 1 Step -1
    If TypeName(Delete_Items.Item(i)) = "MailItem" Then
            If DateDiff("d",now, Delete_Items.Item(i).ReceivedTime) > 90 Then Delete_Items.Item(i).Delete
    End If
Next

Set olSession = Nothing
Set olNamespace = Nothing
Set olInbox = Nothing
End Sub

Ответы на вопрос(1)

Ваш ответ на вопрос