Sub Outlookを開く()

    Set Outlook = CreateObject("Outlook.Application") '開く
    Set Outlook設定 = Outlook.GetNamespace("MAPI") 'メール設定
    
    Set フォルダ = Outlook設定.GetDefaultFolder(6) '6：inbox
        フォルダ.Display 'inboxを開く
    
    Outlook.ActiveWindow.WindowState = 0 '0：最大化 1：最小化 2：通常サイズ

End Sub