LOTUSSCRIPT /COM/OLE のクラス
例:文書をコピーする
1 次の例では、[CategoryView] ビューの最初の文書を同じデータベース内にコピーします。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Set db = session.CurrentDatabase
Set view = db.GetView("CategoryView")
Set doc = view.GetFirstDocument
Call doc.CopyToDatabase(db)
End Sub
2 次の例は、文書をあるデータベースから別のデータベースにコピーします。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim db2 As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set db2 = New NotesDatabase _
("", Inputbox("Name of database file?"))
Call db.UpdateFTIndex(True)
Set dc = db.FTSearch("Acme", 0)
Set doc = dc.GetFirstDocument()
While Not(doc Is Nothing)
'Use the call statement because to return
'value is needed
Call doc.CopyToDatabase(db2)
Set doc = dc.GetNextDocument(doc)
Wend
End Sub
関連項目
LotusScript のクラスで文書をコピーする
用語集
ヘルプに対するフィードバック
ヘルプの使い方
ヘルプを開く
用語集
ヘルプに対するフィードバック
ヘルプの使い方
ヘルプを開く