次のスクリプトは現在のデータベースに新規の文書を作成して、Form アイテムに「Notification」を設定します。また、Topic アイテムの値を設定します。[Notification] フォームは [Subject] フィールドに次の入力確認式を持ちます。
@If( Subject = ""; @Failure( "You must enter a Subject" ); @Success )
スクリプトは文書に Subject アイテムを作成しないため、入力確認式はエラーとなり、ComputeWithForm は False を返します。文書は保存されません。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim success As Variant
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Notification"
doc.Topic = "Large bodies of water"
success = doc.ComputeWithForm( False, False )
If success Then
Call doc.Save( True, True )
End If