例: OLE を使用する

次の例は、Visual Basic フォームの 2 つのコマンドボタンを表しています。最初のボタンは、OLE で NotesSession オブジェクトを作成し、Notes のメソッドで NotesDatabase と NotesDocument オブジェクトを作成して、既存の Domino データベースに新規文書を書き込みます。2 つ目のボタンは Visual Basic フォームを閉じる前に Domino オブジェクトが使用していたメモリを開放します。
```
Private Sub Command1_Click()
  Dim session As Object
  Dim db As Object
  Dim doc As Object
  Set session = CreateObject("Notes.NotesSession")
  Set db = session.GetDatabase("", "test4.nsf")
  Set doc = db.CreateDocument()
  doc.Form = "Main Topic"
  doc.Subject = Form1.Text3.Text
  doc.Body = Form1.Text2.Text
  Call doc.Save(True, False)
End Sub
Private Sub Command2_Click()
  Set doc = Nothing
  Set db = Nothing
  Set session = Nothing
  Unload Form1
End Sub
```
次の例は、Visual Basic フォームの 1 つのコマンドボタンを表しています。Notes が実行されていない場合は Notes を起動します。次にローカルのデータディレクトリにある test4.nsf を開きます。
```
Private Sub Command3_Click()
  Dim ws As Object
  Set ws = CreateObject("Notes.NotesUIWorkspace")
  Call ws.OpenDatabase("", "test4.nsf")
End Su
```