Outlook VisualBasic Script

Sub display()
    Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Display
End Sub