in Nabek Header - おぷらくおふらくぶろぎい

Outlookのぷちカスタマイズ

MUAとしては、Outlook explessが一番使われているそうです。私は、ずーとExplessでない方、無印Outlookを利用してきました（ジャストシステムのShurikenとか、いろいろ試してきたけど、なんかしっくりこないんすよねぇ）
・・で、OutlookといえばOfficeファミリー、VBAでカスタイズできるじゃないでげすかぁ。
最近、リナザウを使うようになって、PIMとしても微妙ながら利用するようになってきたし。
OutlookVBAをはじめてみた。はじめて作ったのがこれ。
メモを、起動時に一気に表示させる単純なもの。つまり、付箋紙ソフトの代わりになるじゃん。。的にね。

[ツール][マクロ][VisualBasicEditor]でVBAを起動して、ApplicationのStartupに、コピペすればいい。保存して、Outlookを再起動してみよう。

Private Sub Application_Startup()
Dim oNameSpace
Dim oNotes
Dim iItemNum
Dim i
Set oNameSpace = Application.GetNamespace("MAPI")
Set oNotes = oNameSpace.GetDefaultFolder(olFolderNotes).Items
iItemNum = oNotes.Count
If iItemNum > 0 Then
For i = 1 To iItemNum
oNotes(i).Display
Next
End If
Set oNameSpace = Nothing
Set oNotes = Nothing
End Sub

Posted by nabek at 2004年06月03日 10:51 | TrackBack