Қалта қалтасының күнтізбесін Пошта қалтасындағы Сүйікті қалтада көрсету үшін автоматтандыру әдісі

Ортақ қалтадағы күнтізбені Пошта жіберілген қалтада көрсету үшін процесті автоматтандыру әдісі қалай?

Мен оны логикалық сценарий арқылы немесе топтық саясат арқылы орындағым келді.

Мен 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
Бретт, қалталарды тек Таңдамалы қалталарға қосуға болатын сияқты. Күнтізбе модулі PF сүйіктілеріне қосылған кезде күнтізбелер пайда болады. Бұдан бұрын талқылау үшін мына жерден қараңыз: pcreview.co.uk/forums/…
қосылды автор AardVark71, көзі
Мұны қалай істеуге болатынын білдіңіз бе?
қосылды автор Brett G, көзі

1 жауаптар

Мұны істей алмайсыз. Пошта таңдаулы көрінісіне тек пошта қалталарын немесе іздеу қалталарын қосуға болады. Outlook бағдарламасының көмегіне сілтеме жасай отырып, «Таңдаулылар» «Кіріс», «Жіберілген элементтер» және «Іздеу қалталары» сияқты қалталардың таңбашаларын қамтиды. Қалталарды қосуға, жоюға және реттеуге [...] поштаның (менің назарымды).

MSFT көзқарасынан бұл логикалық тұрғыдан дәйекті.

  • Ортақ қалта таңдаулыларына жалпыға ортақ нысан қосу - бұл пайдаланушы жиі орындалатын әрекеттің түрі. Сондықтан логин сценарийінде бұл орынды емес. Бұл сіздің дербес кітапханаңызға ресурстарды қосу сияқты, мысалы, жобаның мәртебесі немесе нұсқаулығы бар қалта.
  • Пошта таңдауларына пошталық қалтаны қосу жиі пайдаланылатын элементтерге арналған жылдам және лас лақ. Бұл бетбелгіні қосу сияқты.

Сіз жалпы қалтаға кіруге мұқтаж пайдаланушылар көп санын орнату қажет болса, логин сценарийінде мұны істеу мағынасы бар екенін және бұл жақсы болса да, оны қайта қосуға болатынын айтуға болады. жалпыға ортақ қалта фавотьерлері, поштаны емес ... және егер ол бұрыннан бар болса, сүйікті жасау үшін коды болуы керек.

1
қосылды