Sub Initialize
Dim s As New NotesSession
Dim col As NotesViewColumn
Set view = s.CurrentDatabase.GetView("By Category")
Set col = view.CreateColumn(view.ColumnCount + 1, _
"Topic 2", _
"Subject2")
Messagebox "Position:" & col.Position & Chr(13) & _
"Title:" & col.Title & Chr(13) & _
"Formula:" & col.Formula,, "New column added"
End Sub

関連項目

CreateColumn メソッド