бовал бесчисленные способы удаления элементов из пользовательской папки под названием «Дайджесты спама» старше 14 дней. Я успешно сделал это, когда я вложил эту папку подolDefaultFolder(Inbox) но когда он находится вне папки входящих сообщений по умолчанию, я не могу ссылаться на него, поскольку получаю объект не найден.

Вот что у меня есть, и я не могу понять, почему объект не найден при ссылке"fldSpamDigest"

    Dim outapp As Outlook.Application
    Set outapp = CreateObject("outlook.application")
    Dim olitem As Object
    Dim fldSpamDigest As Outlook.MAPIFolder

    Set fldSpamDigest = outapp.GetNamespace("MAPI").Folders("Spam Digests")
    For Each olitem In fldSpamDigest.Items
        If DateDiff("d", olitem.CreationTime, Now) > 14 Then olitem.Delete
    Next

    Set fldSpamDigest = Nothing
    Set olitem = Nothing
    Set outapp = Nothing