ボタン押下時に、View(ビュー）から値を取得するサンプルコード
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim cuidoc As NotesUIDocument
Dim selectData As Variant
Dim vCcTemp As Variant
Dim str As String
Set cuidoc = ws.CurrentDocument
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = ss.CurrentDatabase
Set dc = ws.PickListCollection( 4,False, "サーバー名：", "DB名（XXX.nsf)", "View名", "ヘッダー", "XXXを選択して下さい" )
If dc.Count <> 0 Then
Set selectData = dc.GetFirstDocument
str = Cstr(selectData.Getitemvalue("フィールド名")(0))
End If
End Sub
