Vermutlich steht eine Rolle oder so für die Admins in einem zusätzlichen Leserfeld. Dann stört es auch nicht, wenn Du das $Readers löschst.
Warum soll das $Readers denn überhaupt gelöscht werden ?
Im Anhang der Code des Agenten:
Sub Initialize
Const sMailbox="mail.box"
Const sMailGood="mailgood.nsf"
Dim uiw As New NotesUIWorkspace
Dim sess As New NotesSession
Dim dbCurrent As NotesDatabase
Set dbCurrent=sess.CurrentDatabase
Dim docProfile As NotesDocument
Set docProfile=dbCurrent.GetProfileDocument("Configuration") '--da steht nur der Servername drinnen
Dim sServer As String
sServer=docProfile.KS_Server(0)
If sServer="" Then
Messagebox "Please create a Configuration Profile !"
Exit Sub
End If
Dim dbMailbox As New NotesDatabase(sServer,sMailbox)
Dim dbMailGood As New NotesDatabase(sServer,sMailGood)
Dim docMailbox As NotesDocument
Dim docMailGood As NotesDocument
Dim docOld As notesdocument
Dim col As NotesDocumentCollection
Dim doc As NotesDocument
Set col=dbCurrent.UnprocessedDocuments
Set doc=col.GetFirstDocument
While Not (doc Is Nothing)
Call doc.RemoveItem("$Readers")
doc.flagStatus=3
Call doc.Save(True,False,True)
Set docMailbox=doc.CopyToDatabase(dbMailbox)
Set docGood=doc.CopyToDatabase(dbMailGood)
Set doc=col.GetNextDocument(doc)
Wend
Call uiw.ViewRefresh
End Sub
Soll ich dem Mitarbeiter mittlels LS - hier im Agenten - kurz Admin-Rechte geben, ihn sozusagen nur zum Löschen des $Reader-Feldes in die "kSpamAdministrators"-Gruppe geben, oder gibts einen besseren Vorschlag?
Thema: kSpam - Empfänger soll eigenen Spam administrieren (Gelesen 3735 mal)