Hallo zusammen!!!!
Ich habe ein kleines problem und das ist folgendes!!!
Wenn ich eine Rolle aus einer Person in der ACL auslesen will geht das aber, wer kann mir sagen wie es mit einer PersonenGruppe machen kann.
Ich habe so viel ausprobiert, aber es klappt nicht.
hier unten ist mein momentander Code, wäre noch cool wenn jemand eine idee oder lösunge hätte
gruss madboy
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim mfdoc As notesdocument
Dim acl As NotesACL
Dim entry As NotesACLEntry
Dim i1 As notesitem
Dim i2 As notesitem
Dim s1 As Variant
Dim s2 As Variant
Dim test As Variant
Set ws = New NotesUIWorkSpace
Set uidoc = source
Set mfdoc=uidoc.document
Set i1=mfdoc.getfirstitem("IW")
Set i2=mfdoc.getfirstitem("Reviewer")
Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = acl.GetEntry(session.commonusername)
If entry Is Nothing Then
Set entry = acl.GetEntry( session.username )
End If
s1=i1.text
s2=i2.text
If s1 = "2" Then
Goto abschliessen
Else
If entry Is Nothing Goto w
If entry.IsRoleEnabled( "[testuser]" ) Then
Goto abschliessen
Else
w:
If s1="1" And s2<>session.username Then
Dim unam
unam=Evaluate("@name([CN];'"+s2+"')")
unam=unam(0)
Msgbox("Das Dokument wird gerade von "+unam+" bearbeitet!")
Call uidoc.close
Elseif s1="2" And s2<>session.username Then
Msgbox("Das Dokument wurde schon bearbeitet!")
Else
If s1<>"1" And s1<>"2" Then Call mfdoc.replaceitemvalue("IW","1")
Dim v1 As Variant
Dim v2 As Variant
Set v1=mfdoc.getfirstitem("Body")
v1=v1.text
v2=v1
v1=Evaluate("@subset(@explode('"+v1+"';'@');1)")
v2=Evaluate("@subset(@explode('"+v2+"';'@');-1)")
v1=v1(0)
v2=v2(0)
v1=Evaluate("@subset(@explode('"+v1+"';' ');-1)")
v2=Evaluate("@subset(@explode('"+v2+"';' ');1)")
v1=v1(0)
v2=v2(0)
Call mfdoc.replaceitemvalue("From",v1+"@"+v2)
Call mfdoc.save(False,False)
End If
End If
End If
abschliessen:
