ACL - Fehler: Der Name steht nicht in der Liste

Ohne jetzt zu wissen, wo das Problem her kommt...

Wenn Du die ACL so nicht verändert kriegst, versuch es über Lotus Skript, da hast Du etwas direktere Einflußmöglichkeiten...

Norbert

was passiert, wenn du die gruppen nochmal einfügst? fm oder steht die dann zwei mal drin

hast dus schon mit einer neuen kopie versucht, bei der du die acl nicht mitnimmst? dann kommst du um das scripten herum

...wobei mich das mit dem script auch intressieren würde

ansonsten hilft da auch ScanEz von Ytria. Damit kann man die ACL auch "direkter" bearbeiten und man bekommt diese FM nicht.

Dafür bekommt man eine FM von der Buchhaltung, wenn die Rechung für Ytria ins Haus flattert....

codec

Zitat

Set acl = db.ACL
Set entry = acl.GetEntry( "Hier den ACL-Eintrag eintragen" )
Call entry.Remove
Call acl.Save

Wenn man das Skript im Debugger ausführt, dann kann man auch gleich sehen, was da so alles an ACL Kram steht um den Part "Hier den ACL-Eintrag eintragen" füllen zu können...

codec

Du öffnest die Datenbank im Designer und erstellst irgendwo eine Aktion, die das Lotus skript enthält.
Nun speicherst du die aktion ab, aktivierst den Debugger und führst die Aktion aus.
Der Debugger springt an und Du klickst im Einzelschrittmodus durch das Progrämmle.
Wenn das "Set acl = db.ACL " ausgeführt wurde, schaust Du in den Variablen unter acl nach und siehst, wie die Notation.
Nun stoppst Du das Skript, gehst in den Designer und öffnest die Aktion. Dort fügst du nun den ACL eintrag ein anstatt von: "Hier den ACL-Eintrag eintragen".
Nun speicherst du die aktion und führst sie nochmal aus. Diesmal komplett.
Das problem sollte behoben sein, du kannst die Aktion wieder aus der Datenbank löschen (mit dem Designer....)

voila

codec

codec

Und wie soll das gehen, denn im Debugger siehst du bei der NotesACL keine Entries, die bekommst du erst mit GetEntry bzw GetFirstEntry

OK, damit das hier nicht unbeantwortet bleibt...

Mein Vorschlag: Pack das skript in einen Button:

Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim acl As NotesACL
	Dim entry As NotesACLEntry
	Dim nextentry As NotesACLEntry
	Dim HopOderTop As Variant
	Set db = session.CurrentDatabase
	Set acl = db.ACL
	Set entry=acl.GetFirstEntry
	While Not entry Is Nothing
		Set nextentry=acl.GetNextEntry(entry)
		HopOderTop=Messagebox("Darf bleiben? "+entry.Name,36,"Hop oder Top")
		If HopOderTop<>6 Then
			entry.remove
		End If
		Set entry=nextentry
	Wend
	Call acl.Save

Das sollte funktionieren...

Codec

Hallo,

ich hatte genau dieses Problem letzte Woche. Habe mir damit geholfen, daß ich eine ACL von einer Dummy Datenbank in die betroffene Datenbank kopiert habe. Damit wurde die defekte ACL überschrieben.

Gruß

Ich habe auch das Problem. Ich habe das mit dem Script gemacht, aber der Fehler kommt auch bei Ausführung des Scripts. Kann mir wer weiterhelfen?

willkommen im forum.

hast du denn den tip von ALTERADM schon versucht?

hatte das Problem auch mal, da war irgendein ein komisches Zeichen im Namen der Gruppe. Hab dann nen alten Notes 4.6-Client gestartet, damit ließ sich der Eintrag problemlos löschen

Jo