受信トレイ以下のフォルダーをナビゲーション ウィンドウのお気に入りに追加するスクリプト


コメントにて以下のご要望をいただきました。


今、OUTLOOK2010のメールフォルダーの「受信箱」などをお気に入りに自動で入れたくスクリプト化できないかと思っています。ActiveExplorerで何とかならないかと思っているのですが、その先がわからず、何かサンプルなどご指導いただければと思います。よろしくお願いします。



ナビゲーション ウィンドウのお気に入りにフォルダーを追加する場合は、以下のような手順となります。

  1. ActiveExplorer の NavigationPane を取得します。
  2. NavigationPane の Modules の GetNavigationModule で olModuleMail を指定し、メールのナビゲーション モジュールを取得します。
  3. ナビゲーション モジュールの NavigationFolders の GetDefaultNavigationGroup で olFavoriteFoldersGroup を指定し、お気に入りのナビゲーション グループを取得します。
  4. お気に入りのナビゲーション グループの NavigationFolders の Add メソッドで追加したいフォルダーを指定します。

受信トレイとその下のフォルダーをお気に入りに追加するスクリプトのサンプルは以下のようなものになります。

' ここをトリプルクリックでマクロ全体を選択できます。
Dim appOlk 'As Outlook.Application
Dim objInbox 'As Folder
Dim navPane 'As NavigationPane
Dim navModMail 'As MailModule
Dim navGrpFav 'As NavigationGroup
Dim objFolder 'As Folder
'
Const olFolderInbox = 6
Const olModuleMail = 0
Const olFavoriteFoldersGroup = 4
'
Set appOlk = CreateObject("Outlook.Application")
Set objInbox = appOlk.Session.GetDefaultFolder(olFolderInbox)
objInbox.Display
Set navPane = appOlk.ActiveExplorer.NavigationPane
Set navModMail = navPane.Modules.GetNavigationModule(olModuleMail)
With navModMail.NavigationGroups
    Set navGrpFav = .GetDefaultNavigationGroup(olFavoriteFoldersGroup)
End With
'
navGrpFav.NavigationFolders.Add objInbox
For Each objFolder In objInbox.Folders
    navGrpFav.NavigationFolders.Add objFolder
Next

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

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中