подсчитать подпапки в общей папке входящих - PullRequest
Новая
       14

подсчитать подпапки в общей папке входящих

0 голосов
/ 10 мая 2019

Мне нужно сосчитать подпапки в общей папке входящих, однако код не видит подпапок, хотя их 6. Любая помощь приветствуется. Код находится в MS Access. Спасибо.

Текущий код выглядит следующим образом: 

    Private Sub Command0_Click()

        Dim myOlApp As Outlook.Application
        Set myOlApp = CreateObject("Outlook.Application")


        Dim NS As Outlook.NameSpace
        Set NS = myOlApp.GetNamespace("MAPI")

        Dim objOwner As Outlook.Recipient
        Set objOwner = NS.CreateRecipient("FINFF")  '"FINFF" is alias of shared inbox
        objOwner.Resolve

        If objOwner.Resolved Then
            MsgBox objOwner.Name
        End If

        Dim olFolder As Outlook.Folder
        Set olFolder = NS.GetSharedDefaultFolder(objOwner, olFolderInbox)

        MsgBox olFolder.Folders.Count

   End Sub
...