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

 

Document #: 1207011000000

Body:
[标题]
为什么用Lotus Script给读者域或作者域赋值却不起作用?

环境:(产品,平台,机型,软件版本,等)
产品：Lotus Domino/Notes
平台：Cross Platform

问题描述:
在 Lotus Script 中，通常情况下，我们用以下方法给一个域 赋值，例如给下面的“ Body ” 域 赋值 "Client meeting postponed." ：
Dim session As New NotesSession
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 value of doc...
Set Item = doc.GetFirstItem("People")
item.IsReaders = True
Call doc.Save( False, True )

2. 如果域是特殊类型，可以使用“New”方法，将常量NAMES, READERS 或 AUTHORS作为该方法的参数，如下例所示：

Dim doc As NotesDocument
'...set value of doc...
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)
Call doc.Save( True, True )

注意：当使用LotusScript来为Names, Authors 或 Readers域赋值时，所赋的值应该是完全的层次结构名称，例如"CN=John Doe/OU=US/O=Widgets"，不要使用"John Doe" 或 "John Doe/US/Widgets"之类的名称。