Set CurAgent = NotesSession.CurrentAgent
- вот вам время запуска, вот и пишите лог куданибуть
sss= CurAgent.name & " запустился в " CDat(Now)
<trigger type='scheduled'>
<schedule type='daily' runlocation='any'>
<starttime><datetime>T010000,00</datetime></starttime>
</schedule>
</trigger>
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim stListForm() As String
Dim i As Integer
Set s = New NotesSession
Set db = s.CurrentDatabase
Forall agent In db.Agents
If agent.Trigger= TRIGGER_SCHEDULED Then
Redim Preserve stListAgents(i)
stListAgents(i) = agent.Name
i=i+1
End If
End Forall
End Sub
Dim AgentAssistInfo as AssistInfo
forall aname in stListAgents
'тут в переменную AgentAssistInfo ты получил инфу по агенту
Call GetAssistInfo(db, Cstr(aname), AgentAssistInfo)
end forall