공용 폴더 달력을 자동화하여 메일의 즐겨 찾기 폴더에 표시하는 방법

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에 메일을 추가하지 않고 추가하는 것입니다. 이미 존재하는 경우 즐겨 찾기를 만들지 않아야합니다.