バックグラウンドで返答文書を作成する

自動で、現在の文書の返答文書を作成するサンプル。
関連するデータの登録や、主文書は変更したくないので追加で文書を作成する
という時などに利用するとよい。

-------------------------------------------------------------------------------------
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim resdoc As NotesDocument

'自文書の設定
Set db = session.CurrentDatabase
Set uidoc = uiws.CurrentDocument
Set doc = uidoc.Document

'新規に文書を作成した後、返答文書として位置づける
Set resdoc = db.CreateDocument
Call resdoc.MakeResponse( doc )

'スクリプトで文書を作成した場合、フィールドに何も設定されないので自分で設定する
resdoc.Form = "Response"
resdoc.Subject = "バックグラウンドで作成した返答文書"

'文書の保存
Call resdoc.Save( True , True )
End Sub