OutlookVBAでサブフォルダ一括作成

締切済

質問者：taku_babon
質問日時：2007/07/27 00:16
回答数：1件

Outlook(2007)のVBAを使って、
受信トレイの下にサブフォルダを一括作成する方法をご掲示下さい。
フォルダは200程度を予定しております。

Dim test As Long
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
For test = 1 To 200
Set myNewFolder = myFolder.Folders.Add(test, olFolderDrafts)
Next test

フォルダ名を1～200ではなく、csvファイル、あるいはxlsファイル内のデータから読み取り、
それをフォルダ名として作成するようにするにはどのようにしたらよいのでしょうか？
csv/xlsファイルは1列、200行あります。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： temtecomai2
回答日時：2007/07/28 00:54

Outlook は使っていないのでその VBA についても素人です。

名前の候補をすべて配列に入れておけば良いかと。
配列に格納する部分、Excel から読み取るのであれば Redim をキーワードにしてヘルプで調べてください。
あと、配列をループでまわす場合は UBound についても調べておくと良いです。
For i = 0 To UBound(folderName)
　　Set myNewFolder = myFolder.Folders.Add(folderName(i), olFolderDrafts)
Next i