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

　

◆サブフォルダを取得する

　

オブジェクト

プロパティ

Folder

Folders("フォルダ名")

記述例： Set 変数 = Folder.Folders("フォルダ名")

★Folderオブジェクトは「既定のフォルダを取得する」を参考に取得します。

　

補足：Folder.Folders(番号)の場合は、サブフォルダをインデックス番号で表します。

　

　

記述例：

記号

受信トレイ配下の「スポーツ」フォルダを選択する

Set MyNameSpace = Application.GetNameSpace("mapi")
Set MyInbox = MyNameSpace.GetDefaultFolder(6)
Set Sports = MyInbox.Folders("スポーツ")
Set Application.ActiveExplorer.CurrentFolder = Sports

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

★受信トレイを取得

★受信トレイ配下の「スポーツ」フォルダ取得

★「スポーツ」フォルダを選択

　

記号

予定表配下の「プライベート予定表」を選択する

Set MyNameSpace = Application.GetNameSpace("mapi")
Set MyCalender = MyNameSpace.GetDefaultFolder(9)
Set PrivateC = MyCalender.Folders("プライベート予定表")
Set Application.ActiveExplorer.CurrentFolder = PrivateC

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

★予定表を取得

★予定表配下の「プライベート予定表」フォルダ取得

★「プライベート予定表」フォルダを選択