Outlookサポートナビ！  ≫≫≫ Outlookフォーム作成／VBSプログラミング

　

◆ Itemsコレクション

Itemsコレクションはフォルダ内のアイテムの集合です。Folderオブジェクトのitemsプロパティで取得することができます。

　

例： Set Itemsコレクション変数 = Folder.Items

　

主なプロパティ

主なメソッド

Count … フォルダ内のアイテム数を取得します。

Item(#) … Itemsコレクションからアイテムを取得します。

Add … Itemsコレクションに新しいアイテムを追加します。

　

　

記述例：

記号

受信トレイ内の全てのアイテムを削除する

Set MyNameSpace = Application.GetNameSpace("mapi")

Set MyInbox = MyNameSpace.GetDefaultFolder(6)

intX = MyInbox.items.Count

　

For i = intX to 1 Step -1

MyInbox.items.item(i).delete

Next

★Outlookルートオブジェクトを取得

★受信トレイを取得

★受信トレイ内のアイテム数を変数に格納

　

★アイテム総数が1になるまで処理を繰り返す

★インデックス番号でアイテムを指定して削除

　

　

※itemsコレクション内のItemのインデックス番号はアイテム数に応じて順に付けられるため、インデックス番号1を削除するとこれまでのインデックス番号2→1に繰り上がります。そのため、昇順に削除すると全削除できなくなるので、末尾から削除します。

　

≫≫  Outlookフォーム作成／開発／VBSプログラミング  ≫≫ Outlookオブジェクトモデルから学ぶ