◆ Item.Deleteメソッド

アイテムを削除します。

記述例：

フォルダ内で選択したアイテムを削除する

Set MyExplorer = Application.ActiveExplorer Set MySelection = MyExplorer.Selection x = MySelection.Count For i = x to 1 Step -1 MySelection.Item(i).Delete Next

★現在のフォルダ画面ウィンドウ取得（Explorerオブジェクト） ★現在選択しているアイテム群取得（Selectionコレクション） ★現在選択しているアイテム数を取得 ★アイテム数が1になるまで処理を繰り返す ★選択アイテムを削除

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

Set MyNameSpace = Application.GetNameSpace("mapi") Set MyInbox = MyNameSpace.GetDefaultFolder(6) Set ItemsCl = MyInbox.Items x = ItemsCl.Count For i = x to 1 Step -1 ItemsCl.Item(i).Delete Next

★Outlookルートオブジェクトを取得 ★受信トレイを取得 ★受信トレイ内の全アイテム群取得（Itemsコレクション） ★受信トレイ内のアイテム数を取得 ★アイテム数が1になるまで処理を繰り返す ★アイテム削除

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