怎样用公式或者LotusScript添加一个群组?

[colx]

最好是用LotusScript实现~~~~~
谢谢各位了...

[joxin]

向acl里写：
Dim db As New NotesDatabase("Warsaw", "data\discuss.nsf" )
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set acl = db.ACL
Set entry = acl.CreateACLEntry _
( "test", ACLLEVEL_EDITOR )
Call acl.Save
配置为组：
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = acl.GetEntry("test")
entry.IsGroup = True
Call acl.Save

[joxin]

如果还有什么问题？
仔细看一下NotesAcl和NotesAclEntry类的帮助。

[colx]

不好意思,我的表达有些问题.....
我是想添加服务器群组...应该去看哪一个类呢?

[joxin]

是向服务器通讯录数据库中添加群组吧。

[colx]

是啊.
是不是直接访问通讯录就可以了?

[lilly317]

我也受益：）：）

[joxin]

正确，把它当作一个数据库，就可以了。
你只不过是在后台打开，以某个表单样式，
按照该表单中的域输入域值后，
save而已。

[colx]

谢谢joxin的解答....