メールのお気に入りフォルダーに表示するパブリックフォルダーカレンダーを自動化する方法

Question

メールお気に入りフォルダーに自分のパブリックフォルダーカレンダーを表示するプロセスを自動化するにはどうすればよいですか？

私はログインスクリプトかグループポリシーのどちらかでそれをやりたかったのです。

Windows Server 2008 R2およびWindows Server 2003 R2を実行するドメインコントローラでMicrosoft Exchange Server 2007を使用しています。

すべてのワークステーションシステムは、この上で検索しながらOutlook 2010をまたはOutlookに2007

を持って、私は以下のスクリプトを見つけましたが、このスクリプトで（すでにパスを変更）私はちょうど示すために、パブリックフォルダカレンダーを作ることができていますパブリックフォルダはお気に入りですが、メールお気に入りフォルダはありません。

Const olPublicFoldersAllPublicFolders = 18 
Dim olkApp, olkSes, olkFolder 
Set olkApp = CreateObject("Outlook.Application") 
Set olkSes = olkApp.GetNameSpace("MAPI") 
'Change the profile name on the next line' 
olkSes.Logon "Outlook" 
'Change the folder name on the next line. Repeat the next two lines for each folder   
you want to add.' 
Set olkFolder =  
olkSes.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("Public 
calender").Folders("p cal") 
olkFolder.AddToPFFavorites 
'Change the folder name on the next line. Repeat the next two lines for each folder  
you want to add.' 
Set olkFolder = OpenOutlookFolder("Public Folders\Favorites\P cal") 
AddFavoriteFolder olkFolder 
olkSes.Logoff 
Set olkApp = Nothing 
Set olkSes = Nothing 
Set olkFolder = Nothing 
WScript.Quit 

Sub AddFavoriteFolder(olkFolder) 
' Purpose: Add a folder to Favorite Folders.' 
' Written: 5/2/2009' 
' Author: BlueDevilFan' 
' Outlook: 2007' 
Const olModuleMail = 0 
Const olFavoriteFoldersGroup = 4 
    Dim olkPane, olkModule, olkGroup 
Set olkPane = olkApp.ActiveExplorer.NavigationPane 
Set olkModule = olkPane.Modules.GetNavigationModule(olModuleMail) 
Set olkGroup =  
olkModule.NavigationGroups.GetDefaultNavigationGroup(olFavoriteFoldersGroup) 
olkGroup.NavigationFolders.Add olkFolder 
Set olkPane = Nothing 
Set olkModule = Nothing 
Set olkGroup = Nothing 
End Sub 

Function OpenOutlookFolder(strFolderPath) 
' Purpose: Opens an Outlook folder from a folder path.' 
' Written: 4/24/2009' 
' Author: BlueDevilFan' 
' Outlook: All versions' 
Dim arrFolders, varFolder, bolBeyondRoot 
On Error Resume Next 
If strFolderPath = "" Then 
    Set OpenOutlookFolder = Nothing 
Else 
    Do While Left(strFolderPath, 1) = "\" 
     strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1) 
    Loop 
    arrFolders = Split(strFolderPath, "\") 
    For Each varFolder In arrFolders 
     Select Case bolBeyondRoot 
      Case False 
       Set OpenOutlookFolder = olkSes.Folders(varFolder) 
       bolBeyondRoot = True 
      Case True 
       Set OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder) 
     End Select 
     If Err.Number <> 0 Then 
      Set OpenOutlookFolder = Nothing 
      Exit For 
     End If 
    Next 
End If 
On Error GoTo 0 
End Function 

Answer 1

これはできません。メールフォルダまたは検索フォルダはメールのお気に入りビューにのみ追加できます。 Outlookのヘルプを引用すると、お気に入りには「受信トレイ、送信済みアイテム、検索フォルダなどのフォルダへのショートカットが含まれています」フォルダを追加、削除、整理することができます。メールフォルダに簡単にアクセスできます。

MSFTの観点からは、これは論理的に一貫しています。

• パブリックフォルダのお気に入りにパブリックオブジェクトを追加することは、ユーザーがあまり頻繁に行うことが予想されるアクティビティの種類です。したがって、ログインスクリプトではそれを処理することは適切ではありません。それは、あなたの個人的な情報ライブラリにリソースを追加するようなものです。例えば、プロジェクトの状態やマニュアルのあるフォルダなどです。
• メールのお気に入りにメールフォルダを追加することは、頻繁に使用されるアイテムの迅速かつ汚れたトリックです。これはブックマークを追加するようなものです。

あなたは、あなたは再びそれがログインスクリプトでそれを処理することは理にかなっていること、すべてがパブリックフォルダへのアクセスを必要とする多数のユーザーを設定し、それは大丈夫ですが、しなければならない場合と主張することができそれはパブリックフォルダのfavotiresにメールのものではなく、それを追加するでしょう....そしてすでに存在していればお気に入りを作成しないようにコードを持っている必要があります。