Set xdb=session.GetDatabase("","Produce/GeneralMessage.nsf",False)
If Not xdb Is Nothing Then
Set agent=xdb.GetAgent("RecordFlowAgent")
Set newdoc=New NotesDocument(xdb)
newdoc.StFlowDbPath=Me.dbCur.FilePath
newdoc.StFlowUNID=Me.docCur.UniversalID
Call newdoc.Save(True,True)
Call agent.RunOnServer(newdoc.NoteID)
End If
If Not xdb Is Nothing Then
Set agent=xdb.GetAgent("RecordFlowAgent")
Set newdoc=New NotesDocument(xdb)
newdoc.StFlowDbPath=Me.dbCur.FilePath
newdoc.StFlowUNID=Me.docCur.UniversalID
Call newdoc.Save(True,True)
Call agent.RunOnServer(newdoc.NoteID)
End If
本文介绍了一个使用Lotus Notes API进行文档保存并运行服务器端代理的具体实例。该实例展示了如何通过Lotus Notes API创建一个新的文档,并将其保存到指定数据库中,之后调用服务器上的代理来处理该文档。
7558

被折叠的 条评论
为什么被折叠?



