◆ Itemsコレクション.Countプロパティ

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

記述例：

受信トレイ内のアイテム数を表示する

Set MyNameSpace = Application.GetNameSpace("mapi") Set MyInbox = MyNameSpace.GetDefaultFolder(6) Set ItemsCol = MyInbox.Items MsgBox ItemsCol.Count

★Outlookルートオブジェクトを取得 ★受信トレイを取得 ★受信トレイのItemsコレクションを取得 ★受信トレイ内のアイテムの数を表示

　

※MsgBox MyInbox.Items.Count と省略することも可能です。

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

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オブジェクトモデルから学ぶ