Need Small Create View Sample To Do This

Hello,

I can find samples on thenew for creating a view with lotusscript that will display all documents. But I would also like to change the way the view looks. I would like for the Column to say Form and if the documents have the form field to display the text in this column. For example.

Form

ServerStatsusForm

Memo

Alert

This is what I have so far:

Sub Initialize

Dim s As New NotesSession

Dim viewAll As NotesView

Dim viewTopics As NotesView

Dim vc As NotesViewColumn



Set viewAll = s.CurrentDatabase.GetView("All Documents")

Set viewTopics = s.CurrentDatabase.CreateView("All Documents2", "SELECT @All")

Set vc = viewAll.Columns(0)    

vc.Formula = |Form| 

End Sub

And this comes up with something that looks like this:

1

2

3

4

5

Thank you

Subject: see NotesView in Designer help

you should be using Set notesViewColumn = notesView.CreateColumn( [ position& ] [ , columnName$ ] [ , formula$ ] )