別のエージェントを実行する（NotesAgent クラス）

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim agent As NotesAgent
	Set db = session.CurrentDatabase
	Set agent = db.GetAgent("Step2-1-NotesUIWorkspace")
	If agent.Run = 0 Then
		Print "エージェントを実行しました。"
	Else
		Print "エージェントを実行できませんでした。"
	End If
End Sub

Select XSnippet to copy to Clipboard