Обход всех e-mail'ов во всех папках Outlook в pst

[LA_]

Нужно "обойти" все e-mail'ы во всех папках Outlook в текущем pst.

Делаю так:

Код: Выделить всё

    Set oFolder = Application.Session.GetDefaultFolder(olFolderInbox)
               
    For Each oChildFolder In oFolder.Parent.Folders
        DoFolder oChildFolder
    Next

    ...

Public Sub DoFolder(ByVal oFolder As MAPIFolder)
    Dim oChildFolder As Outlook.MAPIFolder
    Dim oMailItem As Object

    For Each oChildFolder In oFolder.Folders
        For Each oMailItem In oChildFolder.Items
            If TypeOf oMailItem Is MailItem Then
        ...
        Next
        DoFolder oChildFolder
    Next


но это не верно, письма из inbox'a не обрабатываются. Как поправить?