Estoy intentando eliminar todos los correos electrónicos de mi bandeja de entrada que tengan más de 90 días. No puedo usar el archivador automático ya que se ha desactivado en mi oficina. Tengo un código que no parece estar eliminando todos los correos que tienen más de 90 días. Creo que el problema podría estar con mi bucle. Estoy usando Outlook 2010 con el intercambio 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