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

 

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


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

 

オブジェクト

メソッド

Foldersコレクション

Add("フォルダ名",フォルダの種類)

記述法:Set 変数 = Folders.Add("フォルダ名",フォルダの種類)

★フォルダの種類は、指定しなければ親フォルダと同じになります。指定する場合はフォルダの種類の値で指定します。

 

 

記述例:


記号

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

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オブジェクトモデルから学ぶ