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 FunctionDas 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:
Default-User: Nur leserechte
Anonynmous: Nur leserechte
Mein User: owner
Testuser: Owner
(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
