Question

为什么用Lotus Script给读者域或作者域赋值却不起作用

Answer 1

Dim db As NotesDatabase Dim doc As NotesDocument Set db = session.CurrentDatabase Set doc = New NotesDocument ( db ) doc.Form = "Status" doc.Body = "Client meeting postponed." Call doc.Save( True, True )如果某个域是读者域或作者域，则您会发现上面的赋值并没有起到读者域或作者域的作用。这时您应该采用以下两种方法：解答:1. 在保存文档之前对当前域使用IsReader 属性(在NotesItem中定义) 来设置。下面的例子将“People”域设置为读者域。 Dim doc As NotesDocument Dim item as NotesItem Set Item = doc.GetFirstItem("People") item.IsReaders = True Call doc.Save( False, True ) 2. 如果域是特殊类型，可以使用“New”方法，将常量NAMES, READERS 或 AUTHORS作为该方法的参数，如下例所示： Dim doc As NotesDocument Dim newValues( 1 To 2 ) As String newValues( 1 ) = "CN=Mariko Nakamura/OU=Sales/O=Widgets" newValues( 2 ) = "CN=Pierre Singer/OU=Sales/O=Widgets" Dim authorsItem As New NotesItem(doc, "docAuthors", newValues, AUTHORS)