Outlook2007 VBA 再帰処理で全てのフォルダーに触ってみる

下記の質問をいただきました。

>ＯＵＴＬＯＯＫをエクセルで読み込むサンプルで
>二階層までのループを全階層のループにしたいのですがどうしたらいいのでしょうか？
>教えて頂けたら幸いです。

再帰処理※自分自身を呼ぶ関数で試しにOutlook2007で作成してみます。

folderオブジェクト(As Outlook.Folder)を受け取ったら、
受け取ったオブジェクトの名前 .Name
と
フォルダー内のアイテム .Items (ここではメールの件名.Subject)
を表示してみたいと思います。

と言っても、
Sub testFolder(oFolder As Outlook.Folder)
で、フォルダーを受け取ったら、
中身のITEMを表示後、
サブフォルダー .Folders(n) を再度 testFolderに渡しただけです。

コードといつもの怪しい実演販売(動作結果の動画)をみると、
流れがわかりやすいと思います。

Outlook2007 で テストしたコード

Sub main0328()

    Dim oNamespace As NameSpace
    
    Dim oFolder As Outlook.Folder 'フォルダー
    
    ' NameSpace オブジェクトへの参照を取得します。
    Set oNamespace = Application.GetNamespace("MAPI")
    
    ' 既定のフォルダへの参照を取得し、フォルダを表示します。
    Set oFolder = oNamespace.GetDefaultFolder(olFolderInbox) '受信トレイを指定
    oFolder.Display   '選択したフォルダーの表示

    '表示関数を呼ぶ
    Call testFolder(oFolder)  '↑上で取得した受信トレイ
    
    '使用したオブジェクトの解放　= Nothing
    Application.ActiveExplorer.Close   '新しく開いてしまったフォルダーを閉じる
    Set oFolder = Nothing
    Set oNamespace = Nothing

End Sub

'folderオブジェクトを受け取ったら､
'受け取ったオブジェクトの名前
'と
'フォルダー内のアイテム (ここではメールの件名)
'を表示してみたいと思います｡
Sub testFolder(oFolder As Outlook.Folder)

    Dim mITEM As Outlook.MailItem 'メールアイテム
    Dim n As Integer              'ループのカウンター
    Dim c As Integer              'フォルダのループカウンタ

    'テストで名前の表示
    Debug.Print oFolder.Name

    'フォルダーの下には ITEMここではメール と サブフォルダーが存在します

    'メールアイテムの処理
    For n = 1 To oFolder.Items.Count 'アイテム数分ループ
        Set mITEM = oFolder.Items(n)
        '↑代入が終わったので、各プロパティに mITEM.XXXX で アクセスする
        Debug.Print "件名:" & mITEM.Subject '件名表示
    Next
    Debug.Print "---"

    'サブフォルダーの処理
    For c = 1 To oFolder.Folders.Count  'サブフォルダーの数だけループする
        Call testFolder(oFolder.Folders.Item(c))  'c番目のサブフォルダーを関数に渡す
    Next

    '使用したオブジェクトの解放　= Nothing
    Set mITEM = Nothing
    
End Sub

テスト結果

下記、怪しい実演(テスト結果です。)
Outlook2007 VBA 全てのフォルダーを再帰処理で触ってみた
www.youtube.com

終わりの挨拶

あっ、質問は
>ＯＵＴＬＯＯＫをエクセルで読み込むサンプルで
Excelで読み込むサンプルだった・・・
やばい、、、、

続きは

Outlook2007で作成したサンプルをExcel2007へ - 三流君 ken3のmemo置き場
http://d.hatena.ne.jp/ken3memo/20120328/1332905188

を見て、笑ってください・・・