Zugriff überprüfrn

[Hedwig14]

Hallo !

In einer Mail-IN DB verwende ich einen Schalter "Zuweisen" um die Mail einer dritten
Person zur Bearbeitung zuzuweisen. Rechte auf diese Mail In DB haben nur User aus
dem jeweiligen Team.

Wenn ein User nun die Mails an eine Person zuweist, die keinen Zugriff auf die DB hat kann der Doc Link natürlich nicht geöffnet werden.

Wie kann ich vor der Zustellung prüfen, ob der Empfänger auch Zugriff auf die Mail-In-DB hat ggf. sollte der Sender eine Meldung erhalten, dass der Empfänger nicht berechtigt ist, auf die DB zuzugreiben.

Für Tips wäre ich dankbar !

[jBubbleBoy]

Ist sehr Aufwendig, da müsste man die ACL parsen ...
Da würde ich lieber die ACL aufbohren, aber das ist Anwendungsfall spezifisch.

bubble

[koehlerbv]

Hier hilft wirklich nur ein Parsen (!) der ACL incl. Rekursion. Etwas anderes steht nicht zur Verfügung.

Bernhard

[Hedwig14]

ich habe mir das schon gedacht. Hatte jedoch die Hoffnung es gibt noch ein Trick !

DANKE !

[koehlerbv]

Ein "Trick"? Wie sollte das gehen? Fragen ist natürlich erlaubt (und hier ja sogar erwünscht), aber das Abfragen der Rechte eines *anderen* Person kann nur tricky sein (und in Ermangelung des Zugriffs auf dessen private key auch niemals hundertprozentig, wobei wir jetzt aber bei Grenzfällen sind).

Und das Erstellen einer Routine, die die Rechte einer x-beliebigen Person in einer x-beliebigen DB ermittelt (incl. des Zustands "Du kommst hier net rein!"), ist nun kein Zauberwerk. Wer so etwas braucht, sollte das auch beherrschen (meine ich - und daher zählt dies zu meinen Standardaufgaben bei der Ausbildung neuer Notes-Programmierer).

Bernhard

[ata]

... wie werden die Leserechte zugeteilt, über Rollen oder über die Gruppenzugehörigkeit?

Toni

[ata]

... vielleicht kannst du damit was anfangen:

Code

Dim session As New NotesSession
Dim Info List As Variant
Dim dbTemp As NotesDatabase
Dim nn As NotesName
Dim vLevel( 0 to 6 ) As String

vLevel( 0 ) = "No Access" 
vLevel( 1 ) = "Archivar"
vLevel( 2 ) = "Reader"
vLevel( 3 ) = "Author"
vLevel( 4 ) = "Editor"
vLevel( 5 ) = "Developer"
vLevel( 6 ) = "Manager"

Set dbTemp = session.getDatabase( "" , "names.nsf" )
Set nn = New NotesName( "Manfred Mustermann/MusterOrganisation" )

Info( "UserRoles" ) = dbTemp.QueryAccessRoles( nn.Abbreviated )
Info( "AccessLevel" ) = vLevel ( dbTemp.QueryAccess( nn.Abbreviated ) )

... ein Auszug aus einer Funktion, die ich mir mal gebastelt habe...

Toni