LOTUSSCRIPT /COM/OLE のクラス

例:Document プロパティ
次のフォームアクションスクリプトは、現在の文書と直接の返答文書を [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

関連項目