当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。

テクてく Lotus 技術者 Slack に参加しよう!

2008年6月24日火曜日

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

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

-------------------------------------------------------------------------------------
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

0 件のコメント: