Outlookの特定フォルダのメール件数確認マクロ

～～～～～～～～ここから～～～～～～～～
Sub アイテム数()
MsgBox ActiveExplorer.Selection.Count
End Sub

～～～～～～～～ここまで～～～～～～～～

OutlookのVBAモードはAlt+F11で、マクロ実行はF8