例: IsNewDoc property

次のスクリプトは文書が保存されているかどうかをチェックしてから、ディスク上の対応する文書を取得し、ユーザーが選択したフォルダに入れます。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Dim doc As NotesDocument
  Dim choice As String
  Set uidoc = workspace.CurrentDocument
  If uidoc.IsNewDoc Then
    Messagebox _
    ( "Save the document before placing it in a folder" )
  Else
    Set doc = uidoc.Document
    choice = Inputbox _
    ( "Please enter a folder name: ", "Which folder?" )
    Call doc.PutInFolder( choice )
  End If
End Sub