次のスクリプトは NotesUIWorkspace を使用して現在の文書を取得します。次に、FieldGetText メソッドを使用して現在の文書の [Subject] フィールドを表示します。
Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Messagebox( uidoc.FieldGetText( "Subject" ) )