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

どのように私のパブリックフォルダのカレンダーをメールお気に入りフォルダに表示するためのプロセスを自動化する?

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

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

すべてのワークステーションシステムには、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
3
Brettは、お気に入りフォルダにメールフォルダを追加できるだけのようです。カレンダーは、カレンダーモジュールにPFお気に入りに追加されると表示されます。それに関する初期の議論についてはこちらもご覧ください: pcreview.co.uk/forums/…
追加された 著者 AardVark71,
あなたはこれを行う方法を今まで考え出しましたか?
追加された 著者 Brett G,

1 答え

あなたはこれをすることはできません。メールフォルダまたは検索フォルダはメールのお気に入りビューにのみ追加できます。あなたの受信トレイ、送信済みアイテム、および検索フォルダなどのフォルダへのショートカットが含まれています。フォルダを追加、削除、整理することができます[...]あなたのメール (私の強調)。

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

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

パブリックフォルダへのアクセスが必要な多数のユーザーを設定する必要がある場合、ログインスクリプトでそれを処理することは理にかなっていますが、それでも問題はありませんが、パブリックフォルダはメールではなく、お気に入りのものになります。すでに存在する場合は、お気に入りを作成しないようにコードを作成する必要があります。

1
追加された