Jump to content

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


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Recommended Posts

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:

6288f70dfc5289c6b6854b6401c4ba29.jpg.94be10ba9f67c15c3d777e5dc20935b9.jpg


(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

Link to comment
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...