gabebu
Goto Top

Exchange Online, Outlook365: Kalender im Public Folder wird nicht in "Other Calendars" angezeigt

Hallo Zusammen

Ich bin gerade dabei, ein VB-Script zu erstellen, mit dem man einen bestimmten Kalender im Public Folder automatisch bei jedem Nutzer hinzufügen kann. Hier ist das Script:
strFolder = "Public Folders - " & GetMyEmail() & "\All Public Folders\Local Winterthur Holidays"  
Call AddFolderToFavorites(strFolder, True)

Sub AddFolderToFavorites(strPath, AddToAddressBook)
                Const olContactItem = 2
                Set myFolder = GetFolder(strPath)
                If Not myFolder Is Nothing Then
                               myFolder.AddToPFFavorites
                               ' if contacts folder,  
                               ' optionally add new Favorite to OAB  
                               If myFolder.DefaultItemType = olContactItem Then
                                               If AddToAddressBook = True Then
                                                               strFavFolder = _
                                                               "Public Folders\Favorites\" & _  
                                                               myFolder.Name
                                                               Set myFavFolder = GetFolder(strFavFolder)
                                                               If Not myFavFolder Is Nothing Then
                                                                               myFavFolder.ShowAsOutlookAB = True
                                                               End If
                                               End If
                               End If
                End If
                Set myFolder = Nothing
End Sub

Public Function GetFolder(strFolderPath)
                On Error Resume Next
                strFolderPath = Replace(strFolderPath, "/", "\")  
                arrFolders = Split(strFolderPath, "\")  
                Set objApp = CreateObject("Outlook.Application")  
                Set objNS = objApp.GetNamespace("MAPI")  
                Set objFolder = objNS.Folders.Item(arrFolders(0))
                If Not objFolder Is Nothing Then
                               For I = 1 To UBound(arrFolders)
                               Set colFolders = objFolder.Folders
                               Set objFolder = Nothing
                               Set objFolder = colFolders.Item(arrFolders(I))
                               If objFolder Is Nothing Then
                                               Exit For
                               End If
                               Next
                End If
                Set GetFolder = objFolder
                Set colFolders = Nothing
                Set objNS = Nothing
                Set objApp = Nothing
End Function

Public Function GetMyEmail()
                Set objSysInfo = CreateObject("ADSystemInfo")  
                strUserPath = "LDAP://" & objSysInfo.UserName  
                Set objUser = GetObject(strUserPath)
                GetMyEmail = objUSer.Mail
End Function

Das Script funktioniert einwandfrei, nun habe ich aber ein anderes Problem: ich möchte für die "normalen" User (also default und anonymous) nur lese-rechte haben. Leider wird dann aber der Kalender nur als Favorit angezeigt, aber nicht unter "Other Calendars". Ich muss dem Testuser "Owner"-Rechte zuweisen (die dazwischen habe ich ehrlicherweise nicht getestet), damit er unter "other calendars" angezeigt wird.

Hier sind die gesetzten Zugriffsrechte:
untitled

(Die Benutzer mit "owner"-rechte sind die Testnutzer, die vorher einfach schon bereits mit "Default" nur mit leserechte Zugriff haben sollten. Wisst ihr zufälligerweise, welche Rechte hier nötig wären? Der Kalender sollte eigentlich nur von bestimmten Benutzer bearbeitbar sein.


Besten Dank für eure Auskunft.


Gruss,


gabe

Content-ID: 595211

Url: https://administrator.de/contentid/595211

Printed on: October 15, 2024 at 04:10 o'clock