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 email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.