Home

Content

Purchase

Ready-to-use samples

Online resources

Forum

Links

Happy readers

Anonymous

login

Main topic: Agent Log: how to retrieve and delete this data

Agent Log: how to retrieve and delete this data (by Michael Woehrer, 01/28/2005 03:50:15 PM)

Thanks Normunds.

Meanwhile I found out (via NotesPeek), that the agent-item "$AssistRunInfo" holds this aforementioned agent data.

My first try was to remove this item. That works, but the log itself doesn't work anymore if this item is missing (so if you run an agent with a removed $AssistRunInfo, the context menu always returns that the agent has never been run so far).

So we need to save the agent once to restore this item:

------------------------------------------------------------

Dim vAgentArray As Variant

vAgentArray = db.agents

If Isempty (vAgentArray) Then

Msgbox "The database does not contain any agents.", 64, "Operation canceled"

Exit Sub

End If

Forall a In vAgentArray

a.ServerName = a.ServerName

Call a.save()

End Forall

------------------------------------------------------------

As far as I could evaluate so far, this does not cause further problem and could be a possibility to remove the agent log.

To retrieve the agent log info (and e.g. display the content in a messagebox), one could use the following code:

http://nmag.softbankpub.co.jp/home.nsf/content/ndmr200304api35-1?OpenDocument

(my browser only shows question marks because I didn't have installed the appropriate font).

Scrolling down to the bottom, and there we find a sample database which shows how to display the agent log in a msgbox.

Well, I did not investigate this db in detail so far (since the comments are in Japanese language :-).

Best regards,

Michael