NotesRegistration.Mailaclmanager =“ LocalDomainAdmins”

默认情况下,它总是给我一个混合的组

默认情况下,如何为LocalDomainAdmins组设置为[Person group]

在此处输入图片说明

我的编码更新

Dim reg As New NotesRegistration

Dim dt As Variant
dt = DateNumber(Year(Today)+1, Month(Today), Day(Today))

reg.RegistrationServer = mailsvr    
reg.CreateMailDb = True                 '
reg.CertifierIDFile = certid        
reg.Expiration = dt
reg.IDType = ID_HIERARCHICAL
reg.MinPasswordLength = 1               
reg.IsNorthAmerican = True
reg.OrgUnit = OU        
reg.RegistrationLog = "log.nsf"
reg.UpdateAddressBook = True
reg.Storeidinaddressbook = false
reg.MailInternetAddress =  internetpath
reg.Shortname=doc.SelectMail(0) 
reg.Mailowneraccess =2      
reg.Mailcreateftindex=True      


Print mailfile
Print "pass 1"
Dim acl As NotesACL
Print "pass 1-1"
Dim aclEntry As NotesACLEntry
Print "pass 1-2"
Dim dbUser As NotesDatabase
Print "pass 1-3"
Set dbUser = New NotesDatabase(mailsvr,mailfile)    '   mail/person.nsf
Print "pass 1-4"
Set acl = dbUser.aCL
Print "pass 1-5"
Set aclEntry = acl.GetEntry("LocalDomainAdmins")
Print "pass 1-6"
aclentry.Usertype = ACLTYPE_PERSON_GROUP    '   cannot used
print "pass 1-7"
call acl.Save()
Print "pass 1-8"

结果给服务器端一些错误

[0924:000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器:代理打印:邮件\\ yonna

[0924:000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器:代理打印:通过1

[0924:000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器:代理打印:传递1-1

[0924:000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器:代理打印:传递1-2

[0924:000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器:代理打印:传递1-3

[0924:000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器:代理打印:通过1-4

[0924:000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器:代理打印:通过1-5

[0924:000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器:代理打印:传递1-6

[0924:000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器:代理“注册新用户”错误:未设置对象变量

#1楼 票数:3 已采纳

无法在NotesRegistration类中更改Mailaclmanager的条目类型。

您可以做两件事:

首先:创建用户后,您去获取数据库并“手动”更改条目:

Dim dbUser as NotesDatabase
Dim acl as NotesACL
Dim aclEntry as NotesACLEntry

'- do your registration here

Set dbUser = New NotesDatabase( usermailserver, usermailpath ) 
'- use variables for usermailserver and usermailpath that you use as parameters for registeruser
Set acl = dbUser.acl
Set aclEntry = acl.GetEntry( "LocalDomainAdmins" )
aclEntry.UserType = ACLTYPE_PERSON_GROUP
Call acl.Save()

其次:只需修改模板ACL,以使用正确的类型和访问级别在方括号中包含LocalDomainAdmins-条目(作为[LocalDomainAdmins]):创建数据库时,它将从模板中复制方括号中的所有条目,并删除方括号。

我更喜欢第一种解决方案,因为它不需要模板的操作,所有东西都放在代码中的某个位置。

只是一件事:永远,而且我从未重复过至少没有最少错误处理程序的情况下编写代码。 对于每种编码语言都是如此。 Lotus Script中的最小错误处理程序如下所示:

On error goto ErrorHandler

'- your code goes here

EndOfRoutine:
  Exit sub 'or exit function
ErrorHandler:
  Print Err & ", " & Error & " in line " & Erl
  Resume EndOfRoutine

  ask by Desmond Sim translate from so

未解决问题?本站智能推荐:

1回复

如何为群组的Lotus Notes设置用户类型,以创建用户和电子邮件帐户? 使用lotuscript

NotesRegistration.Mailaclmanager =“ LocalDomainAdmins” 默认情况下,它总是给我一个混合的组 默认情况下,如何为LocalDomainAdmins组设置为[Person group] 我的编码更新 结果给服务器端
1回复

Lotus-Notes Agent:仅从当前电子邮件中恢复文件

目前在我的代理中,我像这样浏览我的电子邮件文件: 但它会恢复我电子邮件中存在的所有文件。 而我只想从当前电子邮件(我选择的电子邮件)中恢复文件。 有可能这样做吗? 谢谢您的帮助
1回复

使用lotus.domino在Notes文档中插入图像/文件

我试图在Notes文档中插入一些内联图像和内联附件,使用lotus.domino包Java API的Rich Text格式,然后发送它。 插入代码如下。 现在我有: 我想要的是: 提前致谢。
6回复

Lotusscript:从发送电子邮件作为网络用户的地址

我有一个以Web用户身份运行的lotus-script代理,因为我需要知道当前用户是谁并相应地处理信息。 问题是,在此代理中发送电子邮件时,“发件人”电子邮件地址显示的是Web用户电子邮件地址,而不是我已定义的电子邮件地址。 我在发送电子邮件之前设置了以下字段(作为mime): 但是
2回复

排队让用户访问相同文件夹的Lotus脚本

我的文件夹中包含来自搜索的文档,因此存在一些问题,向用户显示后,该文件夹中的文档将被删除。 如果许多用户同时访问文件夹,我就没有这个问题的想法。 我应该如何解决这个问题。 但是哪个想法可以为当前用户创建一个文件夹。 ************解释我的问题****************
2回复

处理电子邮件的主题行时类型不匹配(脚本)

我在“邮件到达之前”上运行Lotusscript代理。 我需要它来抓住“#”符号后面的主题行中的文本。 无论我如何尝试获取Subject字段(Evaluate,getFirstItem,getItemValue等),我总是会遇到一个错误。 通常是类型不匹配或未设置对象变量。 下面的代
1回复

Lotus Notes / Domino Designer 8-从电子邮件获取用户名

我有很多用户要添加到会议中。 它们既包含在用户的通讯录中,又包含在Notes服务器/总公司通讯录中。 获得用户的电子邮件地址后,是否可以查找他们的用户名?
2回复

从Lotus Notes发送的电子邮件,其中包括已发送的表单无法在gmail中使用

使用Lotus Script将邮件从Lotus Notes发送到Gmail时,按钮在Gmail中不可见。
1回复

Lotusscript:使用 PHP 将文件从电子邮件发送到网站的问题

我想通过 lotusscript 代理将我当前电子邮件中的文件发送到我的网站。 我想做这样的事情:(我知道这段代码不能工作,但它是为了展示这个想法) 这是我将检索文件的 php 代码: 如何将他的文件发送到我的网站? 因为通常在 Javascript 中,当我们想要将文件发送到 PHP 代码
1回复

如何为Domino Designer访问Lotus脚本中的文本字段值

我是Domino Designer和Lotus脚本的新手, 我尝试通过以下方式访问我的文本字段: Sub Click(Source As Button) Dim myText As String myText = Inputbox("insert some text :