はじめましてこんにちは。 スクリプト初心者です。親文書へのリンクボタンを作成するアクション ボタンを作ったのですが、エラーが出てしまいます。 Notesのバージョンは4.6.1です。データベース名は[sienqa.nsf] ローカルに作成しています。エラーメッセージは ｢データベース(sienqa.nsf)のデフォルトのビューIDが取り込めませんでした。｣ スクリプトは以下になります。デバッグしてエラーのでた個所に→を 付けました。どなたかおわかりになられる方、いらっしゃいましたら ご教授いただけないでしょうか。 Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim session As New NotesSession Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim db As NotesDatabase Dim resdoc As NotesDocument Dim rtitem As NotesRichTextItem Set db = session.CurrentDatabase Set uidoc = workspace.CurrentDocument Set doc = uidoc.Document Set resdoc = New NotesDocument( db ) Call resdoc.MakeResponse( doc ) resdoc.Form = "Response" Set rtitem = New NotesRichTextItem( resdoc, "Body" ) → Call rtitem.AppendDocLink( doc, db.Title ) resdoc.Subject = "この返答文書には親文書へのリンクが含まれています" Call resdoc.Save( True, True ) Call workspace.ViewRefresh End Sub