既存文書のことは考えていませんでした。 既存文書は履歴フィールドがない状態のフォーム設計で 作成されているため、スクリプト実行時に履歴フィールドが ないと判断され、エラーが発生します。 既に既存文書を再保存されているので大丈夫かもしれませんが、 以下のスクリプトに置き換えください。 またtaisei様がアドバイスしていただいたように 複数の方が同時にアクセスした場合なども、考慮することが必要です。 社内の掲示板程度でしたら、問題ないと思いますが、ご考慮ください。 Dim ss As New NotesSession Dim doc As NotesDocument Dim item As NotesItem If Isnewdoc Then Exit Sub '現在の文書を取得します Set doc = source.Document '履歴フィールドがあるかどうか確認します。 If Not doc.HasItem("Rireki") Then 'なければ、作成します。 Call doc.AppendItemValue("Rireki",ss.UserName + " " + Now) Else 'あれば、アイテムとして取得します。 Set item = doc.GetFirstItem("Rireki") 'ユーザーＩＤと現在の時刻を履歴フィールドに"追加"します。 Call item.AppendToTextList(ss.UserName + " " + Now) End If '保存 Call doc.Save(False,False)