Не удается заставить папку приложения Outlook работать

Question

У меня есть следующий код для подключения к папкам в Outlook

Function Set_Mail_Boxes()

Dim myOutlookApp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myfolder(1 To 3) As Outlook.MAPIFolder

    Set myOutlookApp = CreateObject("Outlook.Application")

    Set myNameSpace = myOutlookApp.GetNamespace("MAPI")
    Set myfolder(1) = myNameSpace.Folders("IRO Billing Reconciliation Team")
    Set myfolder(1) = myfolder(1).Folders("Inbox")
    Set myfolder(1) = myfolder(1).Folders("SV01_Production")
    Set myfolder(1) = myfolder(1).Folders("Processing")

    Set myNameSpace = myOutlookApp.GetNamespace("MAPI")
    Set myfolder(3) = myNameSpace.Folders("IRO Billing Reconciliation Team")
    Set myfolder(3) = myfolder(3).Folders("Inbox")
    Set myfolder(3) = myfolder(3).Folders("SV01_Production")
    Set myfolder(3) = myfolder(3).Folders("Processing")
    Set myfolder(3) = myfolder(3).Folders("Temp")

End Function

Настройка myfolder(1) работает нормально, но для myfolder(3), как только он достигает ("Temp"), я получаю сообщение об ошибке, что он не может быть найден, даже если он есть и может его увидеть.

Есть ли ограничение папки?