◆既定のフォルダ（受信トレイ等）と同階層にフォルダを作成する

　

オブジェクト	プロパティ
Folder	Parent
記述例： Set 変数 = Folder.Parent ★親フォルダを取得します。

記述例：

受信トレイと同階層に「顧客」という連絡先フォルダを作成

Set MyInbox = Application.GetNameSpace("mapi").GetDefaultFolder(6) Set MyTopFolder = MyInbox.Parent Set ClientFolder = MyTopFolder.Folders.Add("顧客",10)

★受信トレイを取得 ★受信トレイの親フォルダを取得（トップフォルダ） ★トップフォルダ配下に「顧客」という連絡先を作成

受信トレイと同階層に「プロジェクト」という予定表フォルダを作成

Set MyInbox = Applicaiton.GetNameSpace("mapi").GetDefaultFolder(6) Set MyTopFolder = MyInbox.Parent Set ProjectFolder = MyTopFolder.Folders.Add("プロジェクト",9)

★受信トレイを取得 ★受信トレイの親フォルダを取得（トップフォルダ） ★「プロジェクト」という予定表を作成