To view the Design Elements In Our Own View

%Rem

If we want to view our Documents is Possible in Lotus Notes

But If we want to view the Design Elements Like Forms , Views, Folders, Agents, Script -

Libaraies and Etc.,

Blindly Someone says "NO"

But It is Possible...

By

LOTUS NOTES "$FLAGS" AND "$FORMULA CLASS" Reserve Fields

End %Rem

Step : 1

'Agent Code In Initialize

Sub Initialize()

Dim ns As New

NotesSession

Dim db As NotesDatabase

Dim vw As

NotesView

Dim doc As NotesDocument

Dim a As

Integer

Set db=ns.currentdatabase

Set

vw=db.Getview("ViewName")

Set

doc=db.Getdocumentbyunid(vw.Universalid)

Call

doc.Replaceitemvalue("$FormulaClass","1548")

doc.save

True,True

End Sub

Step :2

' And We Have some Hidden Fields In All Design Elements

' We Have To Create Two Columns in our View,

' Use The Following Code in our First Column

'Column Name : Type

@If(

@Contains($Flags;"W");"Pages";

@Contains($Flags;"Y");"Views";

@Contains($Flags;"F");"Folders";

@contains($Flags;"");"Forms";

"Others"

)

' And In Second Column You Put Default Value As $Title

'Displays the Forms, Pages , view and Other Design Elements

Step :3

* Run the View,

* Select the some Documents that May be "HIDDEN"

* And Run the Agent

* Press Shift + F9

* You will See, What U want...

For More Information goto

http://www-10.lotus.com/ldd/ddwiki.nsf/dx/view-of-design-elements.htm