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:
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:
(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
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:
(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
Please also mark the comments that contributed to the solution of the article
Content-ID: 595211
Url: https://administrator.de/contentid/595211
Printed on: October 15, 2024 at 04:10 o'clock