Блог

Как автоматизировать процесс отображения календаря общих папок в папке избранного почты?

Я хотел сделать это либо с помощью сценария входа в систему, либо с помощью групповой политики.

Я использую 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 FoldersFavoritesP 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
  

Вы не можете этого сделать. Вы можете добавлять только почтовые папки или папки поиска в представление избранного почты. Цитируя справку Outlook, Избранное содержит «ярлыки для папок, таких как входящие, отправленные элементы и папки поиска. Вы можете добавлять, удалять и упорядочивать папки […] доступ к вашим почтовым папкам проще » (мой акцент).

С точки зрения MSFT, это логически непротиворечиво.

• Добавление общедоступного объекта в избранное в общедоступной папке — это тип действий, которые пользователь должен выполнять нечасто. Поэтому нецелесообразно обрабатывать это в сценарии входа в систему. Это похоже на добавление ресурсов в вашу личную библиотеку информации, например, в папку со статусом проекта или руководствами.
• Добавление папки почты в избранное почты — это быстрый и грязный трюк для часто используемых элементов. Это больше похоже на добавление закладки.

Вы можете возразить, что если вам нужно настроить большое количество пользователей, которым всем нужен доступ к общей папке, имеет смысл обработать это в сценарии входа в систему, и это нормально, но опять же, это будет добавление его в избранные папки общего доступа, а не в почтовую….и у вас должен быть код, чтобы не создавать избранное, если оно уже существует.