文書を新規作成する(NotesDatabase クラス/CreateDocument メソッド, NotesDocument クラス/Save メソッド)

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Set db = session.Currentdatabase
	Set doc = db.CreateDocument
	doc.Form = "fmProduct"
	doc.ProductID = "C01"
	doc.ProductName = "ノーツクライアント入門"
	doc.Price = 80
	Call doc.Save(True, True)
End Sub





LotusScript 入門 Step4-1 NotesDatabase クラス/CreateDocument メソッド, NotesDocument クラス/Save メソッド

6行目 NotesDatabase クラスの CreateDocument メソッドを使用して、新規文書を表す NotesDocument オブジェクトを変数 doc に格納(「拡張クラス」構文)
7-10行目 変数 doc のフィールドに値を設定。“doc.(フィールド名) = (設定値)”で値を設定可能。フィールドが存在しない場合、新規にフィールドが作成される。但し、プロパティやメソッドなどの予約語と被るフィールドは作成不可。また、文字列や数値以外の読者や作成者フィールドとして設定する場合、上記方法ではなく NotesItem クラスを使った方法で作成/設定する必要あり
11行目 NotesDocument クラスの Save メソッドを使用して、変数 doc を保存。保存を忘れないようにすること

LotusScript
tyoshida
April 30, 2018 at 1:31 PM
Rating
0





No comments yetLogin first to comment...