Set MyNameSpace = Application.GetNameSpace("mapi")
Set MyInbox = MyNameSpace.GetDefaultFolder(6)
Set Swim = MyInbox.Folders("水泳")
MsgBox Swim.Parent
★Outlookルートオブジェクトを取得
★受信トレイを取得
★受信トレイ配下の「水泳」フォルダを取得
★「水泳」フォルダの親フォルダ名を表示
→ 「受信トレイ」と表示されます。
受信トレイと同列(同階層)に「顧客」という連絡先フォルダを作成
Set MyInbox =
Application.GetNameSpace("mapi").GetDefaultFolder(6)
Set MyTopFolder = MyInbox.Parent
Set ClientFolder = MyTopFolder.Folders.Add("顧客",10)