自分の環境では「参照の追加」は不要ですが、環境によっては必要かもしれませんので、ご注意を。
| Dim session As Object
Dim db As Object
Dim doc As Object Dim strDominoServer As String
Dim strDBName As String 'NotesDB接続初期化
' ***NotesDBからの読み込み
' *** セッションの確立
session = CreateObject("Notes.NotesSession") ' *** ノーツDBの取得
db = session.GetDatabase(strDominoServer, strDBName) If (Not db.IsOpen()) Then
' *** エラーメッセージの表示
MsgBox("データベースが見つかりませんでした", vbOKOnly + vbCritical)
GoTo load_exit
End If doc = db.CreateDocument doc.ReplaceItemValue("Form", "MainDoc")
doc.ReplaceItemValue("Subject", “テスト”) Call doc.Save(True, True) load_exit:
' *** オブジェクトの破棄
db = Nothing
session = Nothing |