◆ Explorer.Selectionプロパティ

フォルダ内で選択しているアイテム群を取得します。（Selectionコレクションの取得）

記述例：

フォルダ内で選択しているアイテムを削除します。

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

★現在選択しているウィンドウを取得(Explorerオブジェクト） ★現在選択しているアイテム群を取得（Selectionコレクション） ★現在選択しているアイテム数を取得 　 ★選択アイテムをインデックス番号で指定して削除 （最大値→ 1までのアイテムを削除）

フォルダ内で選択しているアイテムを下書きフォルダに移動します。

Set MyNameSpace = Application.GetNameSpace("mapi") Set MyDraftBox = MyNameSpace.GetDefaultFolder(16) Set MyExplorer = Application.ActiveExplorer Set MySelection = MyExplorer.Selection intX = MySelection.Count 　 For i = 1 to intX MySelection.item(i).move MyDraftBox Next

★Outlookルートオブジェクトを取得(NameSpaceオブジェクト） ★下書きフォルダを取得 ★現在選択しているウィンドウを取得（Explorerオブジェクト） ★現在選択しているアイテム群を取得（Selectionコレクション） ★現在選択しているアイテム数を取得 　 ★インデックス番号で選択アイテムを指定して移動 （インデックス番号1〜選択アイテム数）

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