Dim olApp As New Outlook.Application
        Dim olNameSpace As Outlook.NameSpace = olApp.GetNamespace("MAPI")
 
        For Each olFolder As Outlook.MAPIFolder In olNameSpace.Folders
            MsgBox(olFolder.Name)
        Next