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

　

◆パブリックフォルダを取得する

　

オブジェクト

メソッド

NameSpace

GetDefaultFolder（18）

記述法： Set 変数 = NameSpace.GetDefaultFolder(18）

★「すべてのパブリックフォルダー」を取得します。

★パブリックフォルダ配下の各フォルダはFoldersプロパティで取得します。

　

　

記述例：

記号

パブリックフォルダ内の「社内予定表」を選択する

Set MyNameSpace = Application.GetNameSpace("mapi")

Set MyPublic = MyNameSpace.GetDefaultFolder(18)

Set CoCalender = MyPublic.Folders("社内予定表")

Set Application.ActiveExplorer.CurrentFolder = CoCalender

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

★すべてのパブリックフォルダ―を取得

★パブリックフォルダ内の社内予定表フォルダ取得

★社内予定表を選択