Ever wanted to Update the About document automaticly. Or what about Deleting a
form or re-create a form? This code, as an Agent allows you to create a view
and then run this code and specify the view, it then changes the view so
instead it list design elements of your choice.
Use the Formula class as 2 for About, 4 for Forms & Subforms, 8 for Views,
Folders & Navigators, 16 for Database Icon.
And it is cumulative, ie. 6 = About document + Forms + Subforms, 12 = Forms +
Subforms + Views + Folders + Navigators.
Dim session As New NotesSession
Dim db As notesDatabase
Dim view As Notesview
Dim doc As NotesDocument
Set db = session.Currentdatabase
Set view = db.GetView(Inputbox("Enter View Name"))
Set doc = db.GetDocumentByUNID(view.universalid)
If Not Doc is Nothing then
Call doc.ReplaceItemValue("$FormulaClass",Inputbox("Enter the formula class
to modify the view to."))
Call doc.Save(True,True)
End if
This was first published in November 2000