Option Explicit 
 
Enum olFldr 
    olFolderDeletedItems = 3 
    olFolderOutbox = 4 
    olFolderSentMail = 5 
    olFolderInbox = 6 
    olFolderCalendar = 9 
    olFolderContacts = 10 
    olFolderJournal = 11 
    olFolderNotes = 12 
    olFolderTasks = 13 
    olFolderDrafts = 16 
    olFolderJunk = 23 
End Enum 
 
Sub OpenOLFolder() 
    Dim MyOutLookApp As Object 
    Dim MyNameSpace As Object 
    Dim MyFolder As Object 
     
     '// Late Binding
    Set MyOutLookApp = CreateObject("Outlook.Application") 
    Set MyNameSpace = MyOutLookApp.GetNamespace("MAPI") 
    On Error GoTo ErrFlder 
     'Change the last "olFolderInbox" to be the folder you actually want to open
     'Choose from the list above
    Set MyFolder = MyNameSpace.GetDefaultFolder(olFldr.olFolderInbox) 
     
    MyFolder.Display 
     
CleanUp: 
     '// Clean-up
    Set MyFolder = Nothing 
    Set MyNameSpace = Nothing 
    Set MyOutLookApp = Nothing 
     
     
    Exit Sub 
ErrFlder: 
    MsgBox Err.Number & ":" & Err.Description, _ 
    vbMsgBoxHelpButton, "Folder Error", _ 
    Err.HelpFile, Err.HelpContext 
    Resume CleanUp 
     
End Sub