◆ Foldersコレクション.Addメソッド

フォルダを作成します。Foldersコレクションに追加したFolderオブジェクトを取得します。

記述例：

受信トレイ配下に新規フォルダを作成する

Set MyNameSpace = Application.GetNameSpace("mapi") Set MyInbox = MyNameSpace.GetDefaultFolder(6) Set FoldersCol = MyInbox.Folders Set NewFolder = FoldersCol.Add ("NEW")

★Outlookルートオブジェクトを取得 ★受信トレイを取得 ★受信トレイのFoldersコレクション取得 ★受信トレイ配下に「NEW」というフォルダを作成

　

※itemsコレクション内のItemのインデックス番号はアイテム数に応じて順に付けられるため、インデックス番号1を削除するとこれまでのインデックス番号2→1に繰り上がります。そのため、昇順に削除すると全削除できなくなるので、末尾から削除します。

100個のサブフォルダを一気に作成する

Set MyNameSpace = Application.GetNameSpace("mapi") Set MyInbox = MyNameSpace.GetDefaultFolder(6) Set FoldersCol = MyInbox.Folders 　 For i = 1 to 100 FoldersCol.Add(i) Next

★Outlookルートオブジェクトを取得 ★受信トレイを取得 ★受信トレイのFoldersコレクション取得 　 ★1~100まで処理を繰り返す ★Foldersコレクションにフォルダを作成する （フォルダ名は数字1~100）

　

　

※For~Nextステートメントのループ処理で必要フォルダ数分、処理を繰り返します。

※関連Q&A：「フォルダを作成する」

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