Erstellen von privaten Ordner unterbinden?

[paschalis]

Hallo zusammen

Besteht die Möglichkeit, zum Beispiel mit einer Policy, dem User das Erstellen von privaten Ordner zu unterbinden?

Lotus Notes 8.5.3FP3
Domino 9.0.1FP2

Vielen Dank

[Tode]

Nein. Das erstellen von Privaten Ordnern kann man NIE unterbinden.

[paschalis]

Hallo Tode

"Geht nicht, gibt's (fast) nicht... " würde heissen, ich muss im Design eine Anpassung vornehmen?

Gruss und danke

[klaussal]

Nein. Das erstellen von Privaten Ordnern kann man NIE unterbinden.

Und wofür ist dann der Pkt. "Private Ordner/Ansichten erstellen" in der ACL   

[paschalis]

@Klaus

Dieser Punkt unterscheidet nur wo der private Ordner gespeichert wird. Mit Haken in der Applikation, ohne Haken im desktop8.ndk

[klaussal]

OK. Danke für die Info 

[Tode]

Damit kannst Du verhindern, dass Private Ordner/Ansichten IN DER DATENBANK angelegt werden können. Ohne dieses Recht kann man aber TROTZDEM Private Ordner anlegen. Nur werden Sie dann im Desktop des Benutzers gespeichert, nicht in der der Datenbank, was aber nun funktional für den Benutzer keinen Unterschied macht, sondern nur die Wartung durch den Admin "erschwert"...

Im "Design" kann man da auch nichts machen, außer Du möchtest bei jedem Öffnen der Datenbank durch den Benutzer prüfen, ob private Ordner drin sind, und diese entfernen.
WEIL: Wenn Du die Option verbietest, hast Du -außer im Userkontext- keine Möglichkeit mehr, auf die Ordner zuzigreifen (weil im lokalen Desktop des Users gespeichert)...

[paschalis]

design technisch meine ich die Möglichkeit unterbinden einen "Folder typ" auszuwählen und alle Folder als "shared" zu erstellen.
Alle Optionen die auf irgendeine Art privat sind bereiten ja nur Probleme, bei einem Rename zum Beispiel.

[Tode]

nope, diese Liste ist hardcodiert...

[paschalis]

schade 

Aber danke trotzdem

[mholup]

Hallo,

man könnte doch das Menu Create/Folder deaktivieren.

z.B. mit

Code

Dim hWnd As Long
Dim hMenu As Long
Dim intmenuitem As Integer
Const MF_BYPOSITION = &H400&
Const MF_GRAYED = &H1&
Const MF_DISABLED = &H2&
Const MF_ENABLED = &H0&
Declare Function GetActiveWindow Lib "User32" Alias "GetActiveWindow" () As Long
Declare Function GetMenu Lib "User32" Alias "GetMenu" (Byval hwnd As Long) As Long
Declare Function EnableMenuItem Lib "User32" Alias "EnableMenuItem"_
(Byval hMenu As Long, Byval wISEnableItem As Long, Byval wEnable As Long) As Long

Dim ws As New notesuiworkspace
	Dim values(6) As String
	values(0) = "File"
	values(1) = "Edit"
	values(2) = "View"
	values(3) = "Create"
	values(4) = "Actions"
	values(5) = "Text"
	values(6) = "Help"
	x = ws.prompt(PROMPT_OKCANCELLIST,"Menu Modifier","Pick a menu to disable","0",values)
	Select Case x
	Case "File" : intmenuitem = "0"
	Case "Edit" : intmenuitem = "1"
	Case "View" : intmenuitem = "2"
	Case "Create" : intmenuitem = "3"
	Case "Actions" : intmenuitem = "4"
	Case "Text" : intmenuitem = "5"
	Case "Help" : intmenuitem = "6"
	End Select
	
' intmenuitem = Inputbox("Pick a number","Menu Modifier")
'intmenuitem = 3
	hwnd = getactivewindow()
	hmenu = getmenu( hwnd)
	Call enablemenuitem( hmenu, intmenuitem, MF_BYPOSITION + MF_GRAYED )  'disable
	
	'Call enablemenuitem( hmenu, intmenuitem, MF_BYPOSITION + MF_ENABLED ) 'enable