例: SaveToDisk property

次のフォームに設定されたスクリプトの例では、文書の保存時に Temp アイテム以外のアイテムのみを保存します。NotesDocument オブジェクトとそのアイテムの初期化と操作は、フォーム中の別のスクリプトによって行われます。

(Globals) (Declarations)
Dim doc As NotesDocument

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  Dim item As NotesItem
  Set item = doc.GetFirstItem("Temp")
  item.SaveToDisk = False
  Call doc.Save(True, False)
End Sub