用程序读names.nsf中视图的内容,但是读不出来?
Dim dbNames As New NotesDatabase( db.server,"names.nsf")
Msgbox(dbNames.title)
Set viewserver=dbNames.getview("Server\Ser_vers|Servers")
Set doctmp=viewserver.getfirstdocument
'出错,读不出试图中的数据,有什么办法解决,文档中有一些保护域?
HomeUrl="string"
Msgbox(doctmp.universalid)
Do While Not (doctmp Is Nothing)
doctmp.HTTP_HomeURL=HomeUrl
Msgbox("save")
Call doctmp.dave(True,False)
Set doctmp=viewserver.getnextdocument(doctmp)
Loop