Я пытаюсь написать макрос, который запрашивает у конечного пользователя число, а затем очищает папку «Удаленные» от всего, что старше указанного количества дней.
Код ниже работает, если я изменю папку на Входящие или Отправленные.
Я попробовал oItems.Item (i) .ReceivedTime и получил то же сообщение об ошибке.
Sub ClearDeletedItems()
Dim oDeletedItems As Outlook.Folder
Dim oFolders As Outlook.Folders
Dim oItems As Outlook.Items
Dim i As Long
Set oDeletedItems =
Application.Session.GetDefaultFolder(olFolderDeletedItems)
Set oItems = oDeletedItems.Items
days = CInt(InputBox("How many days of Deleted Items do you want to
keep?"))
For i = oItems.Count To 1 Step -1
If DateDiff("d", oItems.Item(i).SentOn, Now) > days Then
oItems.Item(i).Delete
End If
Next
End Sub
Получаю ошибку 438 - объект не поддерживает это свойство или метод.