Slide 15
Slide 15 text
【サンプル】値のない日付/時刻フィールドに置換する:
Dim ss As New NotesSession
Dim doc As NotesDocument
Dim item As NotesItem
Dim ndt As New NotesDateTime(“”) ‘ワイルドカードの日付
Const FLD = "C_day"
Set doc = ss.Currentdatabase.Unprocesseddocuments.Getfirstdocument()
If doc.Hasitem( FLD ) Then doc.Removeitem FLD
Set item = New NotesItem(doc, FLD, ndt)
doc.save True, False