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