LOTUSSCRIPT /COM/OLE のクラス
例:アイテムをコピーする
1.
次のフォームボタンの例は、現在のデータベースに文書を作成し、値が NEW SUBJECT の Subject アイテムを作成し、現在の文書から Categories アイテムと Body アイテムをコピーします。
Sub Click(Source As Button)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument, doc2 As NotesDocument
Dim item As NotesItem
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set db = session.CurrentDatabase
Set doc2 = New NotesDocument(db)
doc2.Subject = "NEW SUBJECT"
Set item = doc.GetFirstItem("Categories")
Call item.CopyItemToDocument(doc2, "Categories")
Set item = doc.GetFirstItem("Body")
Call item.CopyItemToDocument(doc2, "Body")
Call doc2.Save(True, False)
End Sub
2. 次のフォームボタンの例は、現在のデータベースに文書を作成し、現在の文書からすべてのアイテムをコピーします。
Sub Click(Source As Button)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument, doc2 As NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set db = session.CurrentDatabase
Set doc2 = New NotesDocument(db)
Call doc.CopyAllItems(doc2)
Call doc2.Save(True, False)
End Sub
関連項目
LotusScript のクラスでアイテムをコピーする
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集