例: Creating a document

次の例では、データベースに新規文書を作成し、4 つのアイテムの値を追加します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set doc = New NotesDocument(db)
  doc.From = session.UserName
  doc.Subject = "Mary Lee"
  doc.Categories = "Eastern"
  doc.Body = "OK"
  Call doc.Save(True, False)
End Sub