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."))
By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.