Excel2003 VBA から OutLookを起動

Option Explicit
Sub OL_TEST_0221() 'Excel VBA から OutLookを起動して 受信箱を表示する

Dim oApp As Object 'OutlookのApplication オブジェクトを入れる
Dim myNameSpace As Object '名前のスペースと言われても、、
Dim myFolder As Object 'フォルダー指定

'outlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を
Set oApp = CreateObject("Outlook.Application")

'呪文１ 名前空間 の 指定 と言っても、.GetNamespace("MAPI")しただけ
Set myNameSpace = oApp.GetNamespace("MAPI")

'次は作業フォルダーの指定(.GetDefaultFolder) と 表示(.Display)
Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダー olFolderInbox=6 指定
myFolder.Display '表示 いつものクセで .Visible = True とやりがちだけど

End Sub