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