Kod VBA do usuwania wiadomości e-mail po x dniach
Próbuję usunąć wszystkie wiadomości e-mail z mojej skrzynki odbiorczej, które są starsze niż 90 dni. Nie mogę korzystać z automatycznego archiwum, ponieważ zostało ono wyłączone w moim biurze. Mam kod, który nie usuwa wszystkich wiadomości starszych niż 90 dni. Myślę, że problem może dotyczyć mojej pętli. Korzystam z programu Outlook 2010 z wymianą 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