vbscript - 如何自动使公用文件夹日历显示在“收藏夹”邮件中

Question

如何自动完成在“邮件收藏夹”文件夹中显示公用文件夹日历的过程？

我想通过登录脚本或通过组策略来做到这一点。

我将Microsoft Exchange Server 2007与Windows Server 2008 R2和运行Windows Server 2003 R2的域 Controller 一起使用。

所有工作站系统都具有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

你做不到您只能将邮件文件夹或搜索文件夹添加到“邮件收藏夹” View 。收藏夹引用Outlook的帮助，“包含诸如收件箱，已发送邮件和搜索文件夹之类的文件夹的快捷方式。您可以添加，删除和排列文件夹，从而更轻松地访问邮件文件夹”(我强调)。

从MSFT的角度来看，这在逻辑上是一致的。

将公用对象添加到公用文件夹收藏夹是用户不希望执行的 Activity 类型。因此，在登录脚本中处理该问题是不合适的。这就像将资源添加到您的个人信息库中，例如，带有项目状态或手册的文件夹。

将邮件文件夹添加到“邮件收藏夹”中对于频繁使用的项目是一种快速而肮脏的技巧。这更像是添加书签。

您可能会争辩说，如果必须设置大量都需要访问公用文件夹的用户，则可以使用登录脚本来处理它，这很好，但是，再次将其添加到公用文件夹收藏夹，而不是邮件文件夹。...并且您必须具有代码才能创建收藏夹(如果它已经存在)。