在视图中不能打开拷贝的文档?
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc1 As NotesDocument
Dim doc2 As NotesDocument
Set db=session.CurrentDatabase
Set uidoc=workspace.CurrentDocument
Set doc1=uidoc.Document
Set doc2= New NotesDocument(db)
doc2.subject="拷贝到的新表单"
Call doc1.CopyAllItems(doc2)
Call doc2.save(True,False)
Messagebox"拷贝到的新表单 成功!!!"
在视图中不能打开拷贝的文档啊。提示:无法定位缺省的表单,
我给如何操作,才能在视图中打开我通过拷贝的文档啊