[受信トレイを取得する]

アウトルックの受信トレイの内容を取得します。
とりあえず、件名だけ表示しています。

【ソースコード】

[tips0177.vbs]
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
    Next
Else
    WScript.Echo "エラー：" & Err.Description
End If

Set objOlApp = Nothing

【実行結果】

C:\> cscript //NoLogo tips0177.vbs
受信トレイに 2 件のメッセージがあります。
[ 1 件目]
Subject: Microsoft Outlook 2000 へようこそ!
[ 2 件目]
Subject: メールのテスト