Ommaviy jildni kalendarni Sevimli pochta qutisida ko'rsatish uchun qanday avtomatlashtirish mumkin

Jildning jildidagi taqvimingizni Mail Sevimli papkasida ko'rish uchun jarayonni avtomatlashtirish uchun qanday?

Buni yoki kirish skripti yoki guruh siyosati bilan amalga oshirishni xohladim.

Men Windows Server 2008 R2 va Windows Server 2003 R2 bilan ishlayotgan domeni tekshiruvi bilan Microsoft Exchange Server 2007 dan foydalanayapman.

Barcha ish stantsiyani tizimida Outlook 2010 yoki Outlook 2007 mavjud.

Bu haqda qidirayotib, quyidagi skriptni topdim, ammo bu skript orqali (allaqachon yo'lni o'zgartirdi) men oddiy papkada takvimni sevimli papkada ko'rishni xohlayman, ammo sevimli pochta papkasida ko'rishni xohlayman.

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
Bret, siz faqat pochta papkalarni Sevimli papkalarga qo'shishingiz mumkin. Kalendarlar PF sevimlilariga qo'shilganda taqvim modulida ko'rinadi. Bundan oldinroq muhokama qilish uchun bu yerga qarang: pcreview.co.uk/forums/…
qo'shib qo'ydi muallif AardVark71, manba
Buni qanday amalga oshirishni bilib oldingizmi?
qo'shib qo'ydi muallif Brett G, manba

1 javoblar

Buni qila olmaysiz. Pochta Sevimlilariga faqat pochta papkalarini yoki qidiruv papkalarini qo'shishingiz mumkin. Outlook yordamini ataylab, "Sevimlilar" "Qabul qiling", "Yuborilgan ma'lumotlar" va "Qidiruv papkalari" kabi papkalarga yorliqlarni o'z ichiga olishi mumkin [siz] pochta papkalarga [...] (mening diqqatim).

MSFT nuqtai nazaridan bu mantiqan to'g'ri.

  • Umumiy ob'ektni umumiy jildda sevimlilarga qo'shish - foydalanuvchining tez-tez bajaradigan faoliyat turi. Shuning uchun login skriptida buni bajarish maqsadga muvofiq emas. Bu sizning shaxsiy kutubxonangiz ma'lumotlarini, masalan, loyiha holati yoki qo'llanmalariga ega bo'lgan jildni qo'shish kabi.
  • Mail Sevimlilaringizga pochta papkasini qo'shish tez-tez ishlatiladigan narsalar uchun tez va iflos narsadir. Bu yerga belgi qo'shish kabi.

Agar siz umumiy papkaga kirishga muhtoj bo'lgan ko'p sonli foydalanuvchilarni sozlashingiz kerak bo'lsa, bu login skriptida buni bajarish mantiqiy ekanligi va bu yaxshi, ammo yana uni ommaviy jild favotires, pochta emas, balki .... va agar siz allaqachon mavjud bo'lsa sevimli yaratish uchun kod bo'lishi kerak.

1
qo'shib qo'ydi