文書を新規作成する [作成者フィールドの追加]（NotesItem クラス）

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim item As NotesItem
	Set db = session.Currentdatabase
	Set doc = db.CreateDocument
	doc.Form = "fmProduct"
	doc.ProductID = "A01"
	doc.ProductName = "システム管理者入門"
	doc.Price = 250
	Set item = New NotesItem(doc, "From", "CN=Administrator/O=test", AUTHORS)
	item.IsSummary = True
	Call doc.Save(True, True)
End Sub





LotusScript 入門 Step4-4 NotesItem クラス

5行目　NotesItem クラスの変数 item を宣言
12行目　第1引数はフィールドを作成する文書を設定（変数 doc）。第2引数は作成するフィールドの名前。第3引数は設定する値。第4引数はフィールドの種類。今回は作成者とするため“AUTHORS”を指定（名前の場合“NAMES”/読者の場合“READERS”）
13行目　NotesItem クラスの IsSummary プロパティを True に設定。ビューやフォルダにフィールドの値を表示する場合、IsSummary プロパティが True の必要があるが、NotesItem クラスから作成したフィールドの IsSummary プロパティは、デフォルトが False である。よって、明示的に True を設定

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





No comments yetLogin first to comment...