我用过指定视图的方法,也有问题,如下:
Set rtfbitem = New notesrichtextitem(mailDoc,"Body")
Call rtfbitem.appendtext(message)
Call rtfbitem.appendtext(Chr(13)+Chr(10)+Chr(13)+Chr(10))
Call rtfbitem.appendtext(LINK_SHOW)
Call rtfbitem.appenddoclink(docCur,"")
'-------当通过邮件来审批文档时,来确定当前所链接的文档所在的视图
Dim nav As NotesRichTextNavigator
Dim element As NotesRichTextDoclink
Dim view As notesview
Set view = db.GetView(MAILVIEWNAME)
Set nav = rtfbitem.CreateNavigator
flag = nav.FindFirstElement(5)
Set element = nav.GetElement()
element.ViewUnID = view.UniversalID
If (mailDoc.sendto(0)<>"")Then
Call mailDoc.send(False)
End If
如果没有设置默认视图,则程序执行到Call rtfbitem.appenddoclink(docCur,"")的时候,就会报错“Couldn't get difault view id for database”。
还是我的代码有问题?