vba_oulook.vb

Sub List_All_NameSpace_Folders()
'https://stackoverflow.com/questions/16225353/outlook-macro-to-collect-extract-data-from-subject-field-of-numerous-messages

    Dim myNS As NameSpace
    Dim myFolder As MAPIFolder
    Dim mySubfolder As MAPIFolder
    Dim strFolderList As String
    strFolderList = "Your Outlook NameSpace contains these folders:" _
    & vbCr & vbCr
    Set myNS = Application.GetNamespace("MAPI")
    With myNS
        For Each myFolder In myNS.Folders
            strFolderList = strFolderList & myFolder.Name & vbCr
            For Each mySubfolder In myFolder.Folders
                strFolderList = strFolderList & "* " & mySubfolder.Name & vbCr
                Next mySubfolder
                Next myFolder
            End With
            MsgBox strFolderList, vbOKOnly + vbInformation, "Folders in NameSpace"
End Sub