以下のような内容でVBEに記述していく。
Sub GetMail()
'Outlookを操作するインスタンス取得
Dim oApp As New Outlook.Application
'Outlook の NameSpace オブジェクトを取得
Dim oNs As Outlook.Namespace
Set oNs = oApp.GetNamespace("MAPI")
'受信トレイフォルダーを取得
Dim oF As Folder
Set oF = oNs.Folders("任意のプロファイル").Folders("フォルダ名")
MsgBox oF.Items.Count
End Sub
実行すると、メッセージボックスで件数が表示される。
