вообще, у меня для удаления таких вьюх в базе написан агент для пользователей
Sub Initialize
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
On Error Resume Next
Set db = ss.CurrentDatabase
viewList = db.Views
count% = 0
Forall x In viewList
If x.IsPrivate Then
Set doc = db.GetDocumentByUNID(x.UniversalID)
If (Not doc Is Nothing) And doc.hasItem("$Authors") Then
If doc.GetItemValue("$Authors") = ss.UserName Then
y$ = x.LastModified
txtList$ = txtList$ + x.Name + " -- " + ", " + y$ +Chr(10)
Call x.Remove
count% = count% +1
End If
End If
End If
End Forall
Print "Частные представления пользователя: " + txtList$
Print "Всего удалено " + Cstr(count%) + " частных представлений"
End Sub
код может неидеальный, но проверка не повредит

еслиу кого есть идеи лучше, давайте
