例: Document Property (NotesUIDocument - LotusScript)

次のフォームアクションスクリプトは、現在の文書と直接の返答文書を [Interesting] フォルダに入れます。各文書をフォルダに入れるには NotesDocument の PutInFolder メソッドを使用します。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Dim doc As NotesDocument
  Dim collection As NotesDocumentCollection
  Set uidoc = workspace.CurrentDocument
  Set doc = uidoc.Document
  Set collection = doc.Responses
  Call doc.PutInFolder( "Interesting" )
  Set doc = collection.GetFirstDocument
  While Not ( doc Is Nothing )
    Call doc.PutInFolder( "Interesting" )
    Set doc = collection.GetNextDocument( doc )
  Wend
End Sub