LOTUSSCRIPT /COM/OLE のクラス

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

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

関連項目