Sık Kullanılan Klasör klasöründe göstermek için Ortak klasör takvimini nasıl otomatikleştirilir

Ortak klasör takvimimi Mail Favori klasörüne göstermek için işlemi nasıl otomatikleştirebilirim?

Oturum açma komut dosyasıyla veya grup ilkesiyle yapmak istedim.

Windows Server 2008 R2 ve Windows Server 2003 R2 çalıştıran etki alanı denetleyicisi ile Microsoft Exchange Server 2007 kullanıyorum.

Tüm iş istasyonu sistemi Outlook 2010 veya Outlook 2007'ye sahip.

Bunu ararken, aşağıdaki betiği buldum, ancak bu betikle (zaten yolu değiştirdim), ortak klasör takviminde sık kullanılanlar klasörünün favori klasöründe değil, favori klasöründe görünmesini sağlayabiliyorum.

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, Sık Kullanılanlar klasörlerine yalnızca posta klasörleri ekleyebileceğiniz gibi görünüyor. Takvimler PF favorilerine eklendiğinde takvim modülünde görünecektir. Daha önceki tartışmalar için buraya bakınız: pcreview.co.uk/forums/…
katma yazar AardVark71, kaynak
Bunu nasıl yapacağını hiç anladın mı?
katma yazar Brett G, kaynak

1 cevap

Bunu yapamazsın. Posta Sık Kullanılanları görünümüne yalnızca posta klasörleri veya arama klasörleri ekleyebilirsiniz. Outlook'un yardımından alıntı yaparak, Sık Kullanılanlar "Gelen Kutunuz, Gönderilmiş Öğeler ve Arama Klasörleri gibi klasörler için kısayollar içerir. Klasörler ekleyebilir, kaldırabilir ve düzenleyebilirsiniz [...] posta </​​strong> klasörlerinize daha kolay erişebilirsiniz" (vurgum).

MSFT'nin bakış açısından, bu mantıksal olarak tutarlı.

  • Ortak klasörünüze ortak bir nesne eklemek, sık kullanılan bir kullanıcının yapması beklenen etkinlik türüdür. Yani bir giriş komut dosyasında bunu işlemek uygun değil. Kişisel bilgi kitaplığınıza kaynak eklemektir, örneğin proje durumu veya kılavuzları olan bir klasör.
  • Posta Sık Kullanılanlarınıza posta klasörü eklemek, sık kullanılan öğeler için hızlı ve kirli bir numaradır. Bu daha çok bir yer imi eklemek gibidir.

Herkesin bir ortak klasöre erişmesi gereken çok sayıda kullanıcı kurmanız gerekiyorsa, bunu bir oturum açma komut dosyasında ele almanın mantıklı olduğunu ve bunun iyi olduğunu, ancak yine de Ortak klasör favoriler, posta değil .... ve zaten var olsaydı favori oluşturmak için kod olması gerekir.

1
katma