VBA Outlook: Como navegar por los objetos de Outlook usando VBA

El orden es el siguiente:

El NameSpace
Las carpetas
Las subcarpetas (si hay)
Los items
Bueno y todo lo que tengan los items, llegar hasta aquí era lo mas importante. Luego explorando los metodos y atributos que tiene cada objeto se pueden hacer maravillas.

Sub findPl()
'El Namespace es el objeto principal
Set ns = Outlook.GetNamespace("MAPI")
'Luego vienen los folders, los subfolders, y por ultimo los items:
For Each fold In ns.Folders
    For Each f In fold.Folders
        For Each it In f.Items
            MsgBox it.Subject
        Next it
    Next f
   
Next fold
End Sub