◆ Explorer.CurrentViewプロパティ

フォルダのビューを指定／取得します。

記述例：

現在のフォルダのビューを「公開予定」に変更する

Set MyExplorer = Application.ActiveExplorer MyExplorer.CurrentView ="公開予定"

★現在選択しているウィンドウを取得(Explorerオブジェクト） ★現在のフォルダビューを「公開予定」とする

予定表を選択しフォルダビューを「公開予定」にする

Set MyNameSpace = Application.GetNameSpace("mapi") Set MyCalendar = MyNameSpace.GetDefaultFolder(9) Set Application.ActiveExplorer.CurrentFolder = MyCalendar Application.ActiveExplorer.CurrentView = "公開予定"

★Outlookルートオブジェクトを取得 ★予定表を取得 ★予定表を選択 ★現在のフォルダビューを「公開予定」とする

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