[受信トレイを取得する]
アウトルックの受信トレイの内容を取得します。
とりあえず、件名だけ表示しています。
【ソースコード】
[tips0177.vbs]
Option Explicit
On Error Resume Next
Dim objOlApp
Dim objOlNs
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: メールのテスト