Outlookでデスクトップ付箋

MicrosoftOutlookでメモを付箋のように開くことが出来るが、Outlookを終了させると全てのメモが閉じてしまい、また表示させるには1個1個開かないといけないためデスクトップ付箋の代わりにするのはちょっとつらい。なので、メモフォルダ内の特定分類(例えば付箋)のメモを起動時に全て開くマクロを作ってみました。(OfficeXPで動作確認)

Private Sub Application_Startup()
    Set myNameSpace = Application.GetNamespace("MAPI")
    Set myNotes = myNameSpace.GetDefaultFolder(olFolderNotes _
        ).Items.Restrict("[分類項目] = '付箋'")
    For i = 1 To myNotes.Count
        myNotes(i).Display
    Next
End Sub

あとはスタートアップでOutlookやTasklook(http://park3.wakwak.com/~gao/index.html)などを登録しておくと、起動時に分類が付箋のメモが表示されるようになります。
これをやってもOutlookを終了させればメモは閉じるので、Tasklookは使っておいた方が良いと思いますが。