Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim uiView As NotesUIView
Dim doc As NotesDocument
Dim dc As NotesDocumentCollection
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = Source.Database
Set acl = db.ACL
Set entry = acl.GetEntry( session.CommonUserName )
Set uiView = workspace.currentview
Set dc=Source.Documents
If entry Is Nothing Then
Set entry = acl.GetEntry( session.UserName )
End If
msg="Sie sind nicht berechtigt, Dokumente in der Ansicht "+uiView.viewName+" zu löschen"
titel="Keine Löschberechtigung vergeben"
If entry Is Nothing Then
Messagebox msg,64,titel
continue=False
Elseif entry.IsRoleEnabled( "[Admin]" ) Then
Goto delDocs
End If
Exit Sub
delDocs:
continue = False
answer = Messagebox("Vorgang fortsetzen",36,Cstr(dc.count)+" Dokument(e) löschen")
If answer=6 Then
For j = 1 To dc.Count
Set doc = dc.GetNthDocument( j )
doc.remove True
Next
End If
Call workspace.ViewRefresh
End Sub
So nun hab ich es so eingefügt jedoch hab ich noch folgendes Problem das dem User ewigkeiten eine Massage angezeigt wird wo man immer auf nein klicken muss also habt ihr da noch eine Idee wie ich das vllt lösen kann?
Wenn es darum geht, die Meldung nicht mehr anzuzeigen, kommentiere die "MessageBox" aus oder lass den Text "nur" in der Statuszeile erscheinen.
If entry Is Nothing Then
'REM Messagebox msg,64,titel
Print msg
continue=False
Elseif entry.IsRoleEnabled( "[Admin]" ) Then
Goto delDocs
End If
Markus