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

　

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

オブジェクト

メソッド

Foldersコレクション

Item(インデックス番号)

記述法：Set 変数 = Folders.Item(インデックス番号）

　

FoldersコレクションからFolderオブジェクトを取得します。

インデックス番号の1〜最大値を使うことにより、全てのサブフォルダに対し一括処理を行うことができます。

　

　

記述例：

記号

受信トレイ配下の全てのサブフォルダを削除する

Set MyNameSpace = Application.GetNameSpace("mapi")

Set MyInbox = MyNameSpace.GetDefaultFolder(6)

intX = MyInbox.Folders.Count

　

For i = intX to 1 Step -1

MyInbox.Folders.Item(i).delete

Next

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

★受信トレイを取得

★受信トレイのFoldersコレクション内の数（サブフォルダ）を取得

　

★受信トレイのFoldersコレクション内のフォルダをインデックス番号（最大値→1まで）で指定し削除する

　

※Folder.Folders(インデックス番号）でも同様の処理を行うことができます。

参考： 全てのサブフォルダを削除する

　

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