動画で三流解説
動画の簡単な説明
処理したいフォルダーの名前がわかっているなら(固定なら)
そんな時は、
ドットで重ねてフォルダーを指定するといいかも?
'メールアイテムの処理
For Each mITEM In oFolder.Folders("テストサブ").Folders("sub3333").Folders("sub44444").Items 'アイテム数分ループ
'↑代入が終わったので、各プロパティに mITEM.XXXX で アクセスする
こんな感じで、フォルダー名が固定なら、
カッコ悪いのですが、
サブの下の サブ... の メールアイテムを取得することもできます。
関連するソースコードは
http://d.hatena.ne.jp/ken3memo/20120415
を見て、笑ってください・・・
動画解説やテスト結果
www.youtube.com動画元: Outlook VBA .Folders.Foldersと重ねてサブフォルダーを読む - YouTube