Ciao,
dopo aver effettuato la modifica di un campo a tua scelta (come hai indicato tu) io creerei nella names una vista che me li seleziona tutti e poi da lì con un script (analogo a quello sotto) puoi eliminare tutte le caselle, una volta eliminate con un select all, elimini anche le schede.
Questo script lo utilizzo per le cancellazioni singole, dovresti modificarlo inserendo un while che cicli tra tutti i nomi della vista ed eliminando la parte di rchiesta del nome utente da cancellare.
Option Public
Sub Initialize
Dim session As New NotesSession
Dim userdb As NotesDatabase
Dim namesdb As NotesDatabase
Dim namesview As NotesView
Dim docnames As NotesDocument
Dim DBPath, alfa As String
Set namesdb = session.GetDatabase( "NotesServer", "names.nsf" )
Set namesview = namesdb.GetView("VUserActivityDBAgent")
alfa = Lcase(Inputbox ("Immettere il nome e cognome della persona da cancellare","","",100,100))
Set docnames = namesview.GetDocumentByKey(alfa, True)
If Not docnames Is Nothing Then
If Lcase(docnames.Fullname(1)) = alfa Then
DBPath = docnames.MailFile(0)
\' Msgbox ("Casella in cancellazione: " + DBPath)
Set userdb = session.GetDatabase( "NotesServer", DBPath )
Call userdb.remove
\' Messagebox ("Casella cancellata dal server")
End If
End If
Else
Messagebox ("Casella non trovata")
End If
End Sub
Ciao
Alex
|