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

現在選択しているアイテム数を取得します。

記述例：

現在の選択アイテム数を表示する

Set MyExplorer = Application.ActiveExplorer Set MySelection =MyExplorer.Selection Msgbox MySelection.Count

★現在選択しているExplorerオブジェクトを取得 ★現在選択しているアイテムの集合を取得 ★現在選択しているアイテム数を表示

　

※MsgBox MyExplorer.Selection.Countと省略することも可能です。

選択しているアイテムを削除する

Set MyExplorer = Application.ActiveExplorer intX = MyExplorer.Selection.Count 　 For i = intX to 1 Step -1 MyExplorer.Selection.item(i).Delete Next

★現在表示しているExplorerオブジェクトを取得 ★現在選択しているアイテムの数を取得 　 ★選択アイテムをインデックス番号で指定して削除 （最大値→ 1までのアイテムを削除）

　

　

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

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