作成者	カテゴリ	返答の対象		公開
すぎ 01/30/2008 06:00 PM		現在のユーザーの取得について

Queryopenに以下のスクリプトを貼り付けてみました。


Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)

Dim ss As New NotesSession
Dim doc As NotesDocument
Dim item As NotesItem

If Isnewdoc Then Exit Sub
'現在の文書を取得します
Set doc = source.Document
'履歴フィールドアイテムを取得します。
Set item = doc.GetFirstItem("Rireki")
'ユーザーＩＤと現在の時刻を履歴フィールドに"追加"します。
Call item.AppendToTextList(ss.UserName + " " + Now)

'保存
Call doc.Save(False,False)
End Sub


実行してみると、

O001 オブジェクト変数が設定されていません

というメッセージが出てきました。
新規のデータベースで作ったものは出なかったのにどうしてでしょうか？