◆ NameSpace.GetDefaultFolderメソッド

Outlook既定のフォルダ（受信トレイ・予定表・連絡先など）をFolderオブジェクトとして取得できます。

記述例：

受信トレイを取得する

Set MyNameSpace = Application.GetNameSpace("mapi") Set MyInbox = MyNameSpace.GetDefaultFolder(6)

★Outlookルートオブジェクトを取得(NameSpaceオブジェクト） ★受信トレイを 取得（Folderオブジェクト）

予定表を選択する

Set MyNameSpace = Application.GetNameSpace("mapi") Set MyCalendar = MyNameSpace.GetDefaultFolder(9) Set Application.ActiveExplorer.CurrentFolder = MyCalendar

★Outlookルートオブジェクトを取得(NameSpaceオブジェクト） ★予定表フォルダを取得（Folderオブジェクト） ★予定表を選択する

新規メッセージを下書きフォルダに保存する

Set MyNameSpace = Application.GetNameSpace("mapi") Set MyDraftBox = MyNameSpace.GetDefaultFolder(16) Set NewItem = Application.CreateItem(0) NewItem.subject = "本日の会議" NewItem.move MyDraftBox

★Outlookルートオブジェクトを取得 ★下書きフォルダを取得 ★新規メッセージを作成 ★新規メッセージの件名を指定 ★下書きフォルダに保存

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