Lotus Notes - Agente no funciona

Hola a todos:

Tengo una pequeña aplicación hecha en Notes, y en ella ejecuto unos agentes para tener un contador de visitas en ciertas partes de la aplicación.
Estos agentes los ejecuto en el "QueryOpen" de unas páginas, y he probado de la siguiente forma:

@Command([ToolsRunMacro]; "(ContadorPublicoRRHH)")
@Command([RunAgent]; "(ContadorPublicoRRHH)")

Con estos comandos, los agentes se ejecutan correctamente, excepto cuando viene de otro frameset. Es entonces cuando, al ejecutar esa instrucción, da el siguiente mesaje de error:

"The specified agent does not exits."

He probado a ejecutar el agente como en el ejemplo de la ayuda en LotusScript, pero en este caso, muestra Success en el mensaje aunque no se ejecuta el agente:

Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = s.CurrentDatabase
Set agent = db.GetAgent("ContadorPublicoRRHH")
If agent.Run = 0 Then
Messagebox "Agent ran",, "Success"
Else
Messagebox "Agent did not run",, "Failure"
End If
End Sub

Si alguien tiene alguna idea del problema...

Muchas gracias.