例: NotesUIWorkspace class

次のスクリプトは NotesUIWorkspace を使用して現在の文書を取得します。次に、FieldGetText メソッドを使用して現在の文書の [Subject] フィールドを表示します。

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Messagebox( uidoc.FieldGetText( "Subject" ) )