LOTUSSCRIPT /COM/OLE のクラス
例:Save メソッド
1. 次のスクリプトは現在のデータベースに文書を新規作成して保存します。新規文書であるため、他のユーザーと編集作業が競合することはありません。したがって、最初のパラメータは False です。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Main Topic"
doc.Subject = "Here's a new document"
Call doc.Save( False, False )
2. 次のビューアクションスクリプトは、ビューの選択文書の各 Status アイテムを変更します。1 つの文書を複数のユーザーが同時に編集すると、文書は保存されません。その代わりに、Status アイテムが変更された返答文書が作成され保存されます。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
doc.Status = "Processed by view action"
Call doc.Save( False, True )
Set doc = collection.GetNextDocument( doc)
Wend
3. 次のビューアクションスクリプトは、ビューの選択文書の各 Status アイテムを変更します。1 つの文書を複数のユーザーが同時に編集すると、文書は保存されません。スクリプトは各選択文書についてメッセージを表示して、文書が保存されたかどうかを知らせます。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
doc.Status = "Processed by view action"
If doc.Save( False, False ) Then
Messagebox "Document " & doc.UniversalID & _
" successfully saved"
Else
Messagebox "Document " & doc.UniversalID & _
" was not saved"
End If
Set doc = collection.GetNextDocument( doc)
Wend
4. 次のスクリプトは文書の Status アイテムを変更します。最初のパラメータが True であるため、文書はスクリプトの実行中に誰かが編集した場合でも保存されます。
Dim doc As NotesDocument
'...set value of doc...
doc.Status = "This change gets saved no matter what"
Call doc.Save( True, True )
関連項目
Save メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集