現在のビューの設定をサブフォルダにコピーするマクロ

Outlook ではビューの設定はフォルダごとに保存され、ひとつのフォルダでカスタマイズしたビューの内容はほかのフォルダには反映されません。既定のビューである「メッセージ」ビューをカスタマイズすることで新規に作成したフォルダやビューのカスタマイズを行っていないフォルダのビューを変更することは可能ですが、すでにビューを変更してしまったフォルダをまとめて変更したり、特定の複数のフォルダのみ設定を一括変更する機能は用意されていません。
そこで、あるフォルダの現在のビューの設定をそのフォルダのすべてのサブフォルダの初期ビューとして設定するマクロを作ってみました。
ビューをカスタマイズした後、そのフォルダを選択して CopyViewToSubFolders を実行すると、そのフォルダのすべてのサブフォルダ (サブフォルダにさらにサブフォルダが存在する場合はそれも含めて) のビューに「初期ビュー」という名前で新たなビューが作成され、カスタマイズしたビューの内容が設定されます。また、そのビューがサブフォルダを表示した際に使用されます。なお、すでに「初期ビュー」という名前のビューが存在する場合は削除されます。

' ここをトリプルクリックでマクロ全体を選択できます。
Public Sub CopyViewToSubFolders()
    Dim fldCurrent 'As Folder
    Set fldCurrent = ActiveExplorer.CurrentFolder
    CopyViewToSubRecur fldCurrent
End Sub
'
Private Sub CopyViewToSubRecur(ByVal fldParent As Object)
    Const VIEW_NAME = "初期ビュー" ' - ビューの名前を変更したい場合は、これを変更
    Dim fldSub 'As Folder
    Dim viewParent 'As View
    Dim viewSub 'As View
    Dim strViewXml As String
    Set viewParent = fldParent.CurrentView
    For Each fldSub In fldParent.Folders
        For Each viewSub In fldSub.Views
            If viewSub.Name = VIEW_NAME Then
                viewSub.Delete
                Exit For
            End If
        Next
        Set viewSub = fldSub.Views.Add(VIEW_NAME, viewParent.ViewType, olViewSaveOptionThisFolderEveryone)
        viewSub.XML = viewParent.XML
        viewSub.Save
        viewSub.Apply
        CopyViewToSubRecur fldSub
    Next
End Sub

マクロの登録方法やメニューへの追加について