Hope these code snippets for Inbox, Outbox, and Sent Messages get you at least part-way to your destination!
Code:
Attribute VB_Name = "GotoOutlookFolders"
Sub GotoInbox()
Dim objOlApp As Outlook.Application
Set objOlApp = CreateObject("Outlook.Application")
Dim objFolder As Outlook.Folder
Set objFolder = Session.GetDefaultFolder(olFolderInbox)
Set objOlApp.ActiveExplorer.CurrentFolder = objFolder
Set objFolder = Nothing
Set objOlApp = Nothing
End Sub
Sub GotoOutbox()
Dim objOlApp As Outlook.Application
Set objOlApp = CreateObject("Outlook.Application")
Dim objFolder As Outlook.Folder
Set objFolder = Session.GetDefaultFolder(olFolderOutbox)
Set objOlApp.ActiveExplorer.CurrentFolder = objFolder
Set objFolder = Nothing
Set objOlApp = Nothing
End Sub
Sub GotoSent()
Dim objOlApp As Outlook.Application
Set objOlApp = CreateObject("Outlook.Application")
Dim objFolder As Outlook.Folder
Set objFolder = Session.GetDefaultFolder(olFolderSentMail)
Set objOlApp.ActiveExplorer.CurrentFolder = objFolder
Set objFolder = Nothing
Set objOlApp = Nothing
End Sub