Доступ к папке по умолчанию Outlook

Я работаю над приложением Outlook VBA, и мне нужно получить доступ к своему почтовому ящику, но, похоже, у меня возникли проблемы. Я использую метод GetDefaultFoldder (olFolderInbox) , однако у меня настроено несколько адресов электронной почты, и ни один из них не отображается в папке входящих сообщений моей личной папки.

Итак, мой вопрос: где определена эта папка по умолчанию? Как узнать, какой почтовый ящик по умолчанию? Я знаю, что есть также метод GetFolderFromID , если бы я использовал это,

как я могу найти идентификатор папки, чтобы указать на нее?

Вот код, который я использую. Это из учебника в блоге Тимоти Чена Аллена, который можно увидеть здесь Блог Тимоти . Код:

Sub find_unread()
    On Error GoTo eh:
    Dim ns As Outlook.NameSpace
    Dim folder As MAPIFolder
    Dim item As Object
    Dim msg As MailItem

    Set ns = Session.Application.GetNamespace("MAPI")
    Set folder = ns.GetDefaultFolder(olFolderInbox)

    For Each item In folder.Items
        DoEvents
        If (item.Class = olMail) And (item.UnRead) Then
            Set msg = item
            Debug.Print msg.SenderEmailAddress
            msg.Display True
        End If
    Next

    MsgBox "All messages in Inbox are read", vbInformation, "All Read"
    Exit Sub
eh:
    MsgBox Err.Description, vbCritical, Err.Number
End Sub