Ich versuche, alle E-Mails in meinem Posteingang zu löschen, die älter als 90 Tage sind. Ich kann das automatische Archiv nicht verwenden, da es in meinem Büro deaktiviert wurde. Ich habe einen Code, der anscheinend nicht alle E-Mails löscht, die älter als 90 Tage sind. Ich denke, das Problem könnte mit meiner Schleife sein. Ich verwende Outlook 2010 mit 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