Exchange Online, Outlook365: Kalender im Favorites Ordner wird nicht in "Other Calendars" angezeigt

gabeBU · 18. August 2020

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:

Code

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

Display More

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 derzeit, aber gerne hätte ich nur Leserechte für alle "normalen" User:

(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. Oder wo genau könnte der Fehler liegen?

Besten Dank für eure Auskunft.

Gruss,

gabe