◆ Itemsコレクション.Itemメソッド

Itemsコレクションからアイテム（Itemオブジェクト）を取得します。

記述例：

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

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に繰り上がります。そのため、昇順に削除すると全削除できなくなるので、末尾から削除します。

受信トレイ内の全てのアイテムをテキスト形式で一括保存する

Set MyNameSpace = Application.GetNameSpace("mapi") Set MyInbox = MyNameSpace.GetDefaultFolder(6) Set ItemsCol = MyInbox.Items intX = ItemsCol.Count 　 For i = 1 to intX ItemsCol.item(i).saveas "C:\test\" & ItemsCol.item(i).Subject & i & " Next

★ルートオブジェクト取得 ★受信トレイを取得 ★Itemsコレクション取得 ★受信トレイのアイテム数を変数に格納 　 ★アイテム総数分の処理を繰り返す ★インデックス番号1~末尾までの全アイテムを各件名+番号で保存

　

※ループ処理でアイテム数分、処理を繰り返します。ファイル名は件名ですが、複数ファイルの同名保存はできないので、数値iをつけています。

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