VBS Outlookを操作する②(受信トレイを取得する)

Option Explicit
On Error Resume Next

Dim objOlApp    ' outlook オブジェクト
Dim objOlNs     ' NameSpace オブジェクト
Dim objOlFolder ' フォルダ情報
Dim objOlItem   ' アイテム情報
Dim lngMsgCnt   ' メッセージ数

Set objOlApp = WScript.CreateObject("Outlook.Application")
If Err.Number = 0 Then
    Set objOlNs = objOlApp.GetNameSpace("MAPI")
    Set objOlFolder = objOlNs.GetDefaultFolder(6)
    WScript.Echo "受信トレイに " & _
        objOlFolder.Items.Count & " 件のメッセージがあります。"
    lngMsgCnt = 1
    For Each objOlItem In objOlFolder.Items
        WScript.Echo "[ " & lngMsgCnt & " 件目]"
        WScript.Echo "Subject: " & objOlItem.Subject
        lngMsgCnt = lngMsgCnt + 1
        '最初の3件目までチェックして終了
        if lngMsgCnt > 3 Then
            exit for
        end if
    Next
Else
    WScript.Echo "エラー：" & Err.Description
End If
Set objOlApp = Nothing