例: アイテムをコピーする

次のフォームボタンの例は、現在のデータベースに文書を作成し、値が 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

次のフォームボタンの例は、現在のデータベースに文書を作成し、現在の文書からすべてのアイテムをコピーします。

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