RegisterNewUser为什么会出现no resume错误?

ccwenwen 2003-06-14 10:37:52
RegisterNewUser为什么会出现
no resume的错误!程序代码是照抄帮助
或其他没有问题(个人认为)的代码
都出现这个问题
Dim session As NotesSession
Dim db As NotesDatabase
Dim note As NotesDocument
Dim view As NotesView
Dim newreg As New notesregistration

Set session = New NotesSession
Set db = session.CurrentDatabase
Set note = session.DocumentContext

Dim certidfile,certpw,org As String
Dim myDir1,myDir2 ,FullName As String
Dim message , driver , MyServer,path ,faile As String
Dim boxType As Long
Dim answer As Integer
On Error Goto ErrorHandler

'MyServer ="\\"+Strright(Strleft(db.server,"/"),"=")
MyServer ="\\"+Trim(note.server_name(0))
driver=""
path="\Domino\Data\"
myDir2="\Domino\Data\ids\people\"
length% = 2
certidfile =MyServer+path+"Cert.id"
certpw = note.CertPassword(0)

newreg.IDType =ID_HIERARCHICAL
newreg.Expiration = Cdat("2100-12-31")
newreg.MinPasswordLength = length%
newreg.IsNorthAmerican = False
newreg.CertifierIDFile = certidfile
newreg.RegistrationServer = db.Server
newreg.CreateMailDb = True
newreg.StoreIDInAddressBook = False
newreg.Updateaddressbook =True

Lastname=note.systemName(0)
If Lastname="" Then
Exit Sub
End If
MailFile = "Mail\"+Lastname+".nsf"
Firstname=""

RegServer =db.Server
' comment = "Comment contents"
comment=""
IDfile = Lastname+".id"
userPassword="pass"
middleinit=""
location = "办公室"


Call newreg.RegisterNewUser(Lastname,MyServer+driver+myDir2+ IDfile, _
RegServer, Firstname, middleinit, certpw, _
location, comment, MailFile, "", userPassword, _
NOTES_FULL_CLIENT )


...全文
218 点赞 收藏 5
写回复
5 条回复
boy 2003年06月17日
Sub Initialize
On Error Goto ErrorHandler

......

Exit Sub
ErrorHandler:
Print "注册用户代理第"+Cstr(Erl())+"行错误:<hr>" & Error
Exit Sub
End Sub
回复 点赞
wuyg719 2003年06月17日
我怎么没有看到ErrorHandler的程序块。一般这个错误表示ErrorHandler程序块没有以resume...
结束,不管能否达到。
回复 点赞
雷布斯尼亚 2003年06月14日
问题出在“On Error Goto ErrorHandler”这句。
有两种解决方法
1、把“On Error Goto ErrorHandler”注释掉。
2、在“End Sub”前加上这几句:
exit sub
ErrorHandler:
exit sub
回复 点赞
jiaojianjj 2003年06月14日
句柄没得到。用DEBUG调试一下,一般都是初始化的问题
回复 点赞
ccwenwen 2003年06月14日
把“On Error Goto ErrorHandler”注释掉
我试过了,还是有错的
注册新用户也没有成功
回复 点赞
发动态
发帖子
消息协作
创建于2007-08-27

282

社区成员

3.9w+

社区内容

企业开发 Exchange Server
社区公告
暂无公告