[ホーム] - [ノーツドミノプログラミングサンプル一覧] - [他のフォームを使用した文書をノーツ文書内で生成するサンプルコード]

他のフォームを使用した文書をノーツ文書内で生成するサンプルコード| ノーツドミノ

開いている文書内で、他のフォームを使用した文書を作成する方法を紹介します。
CreateDocumentメソッドを使用して実現します。
以下の例では、文書内から Form2フォームを使用して文書を作成し保存します。その際、開いている文書のfield1の値を作成する文書のfield1の値へ代入します。



Dim session As New notessession

Dim workspace As New NotesUIWorkspace     

	

Set uidoc = workspace.CurrentDocument   

Set db = session.Currentdatabase

Set newdoc=db.CreateDocument

	

field1=uidoc.FieldGetText("field1")

	

newdoc.Form="Form2"

newdoc.field1=field1



rem 新規文書を保存し、戻り値のエラーチェックを行う。	

If (newdoc.Save(False,True)) Then

　Messagebox"正常に作成されました。",0,"確認"

Else

　Messagebox"保存に失敗しました。",0,"エラー"

End If

本ページは IBM Lotus Notes Domino (ロータスノーツドミノ)を対象としています。基本的には Notes 4,5,及び6以後を対象としていますが、バージョンによっては対応していない場合があります。 lotus scriptや @関数 (@コマンド)を対象としていて、VB Scriptには対応していません。本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。このページはリンクフリーです。(このページへの直接リンクも可能です。)

[ホーム] - [ノーツドミノプログラミングサンプル一覧]