Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Forall view In db.Views
Forall vc In view.Columns
Call TestForSubject(vc)
End Forall
End Forall
End Sub
Sub TestForSubject(vc As NotesViewColumn)
If vc.IsField Then
If vc.ItemName = "Subject" Then
Messagebox "Subject is column " & vc.Position,, _
vc.Parent.Name
End If
End If
End Sub