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

関連項目