domino如何使用代理针对某条文档运行某个代理

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