LN 7.0. Написал агент и запускаю его на сервере с помощью кнопки - примерно так :
[codebox]Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = s.CurrentDatabase
Set agent = db.GetAgent("Synchronisation Convertions ALF & Lotus")
If agent.RunOnServer = 0 Then
Messagebox "OK",, "Succès"
Else
Messagebox "ERROR...",, "Erreur"
End If
End Sub[/codebox]
При нажатии на кнопку появляются песочные часы, он работает несколько минут, что хорошо и заканчивается все messagebox "OK".
Но достаточно часто при нажатии на кнопку сообщение messagebox "OK" появляется мгновенно, а агент так и не начинает работать.
Надо иногода нажимать на кнопку 3-4 раза, а иногда и 20, чтобы добится того чтобы агент запустился и начал работать. Сообщение Messagebox "ERROR..." ни разу не возникало . Что бы это могло быть и как с этим бороться, хотя бы знать как программно определить - выполнился агент или нет ?
[codebox]Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = s.CurrentDatabase
Set agent = db.GetAgent("Synchronisation Convertions ALF & Lotus")
If agent.RunOnServer = 0 Then
Messagebox "OK",, "Succès"
Else
Messagebox "ERROR...",, "Erreur"
End If
End Sub[/codebox]
При нажатии на кнопку появляются песочные часы, он работает несколько минут, что хорошо и заканчивается все messagebox "OK".
Но достаточно часто при нажатии на кнопку сообщение messagebox "OK" появляется мгновенно, а агент так и не начинает работать.
Надо иногода нажимать на кнопку 3-4 раза, а иногда и 20, чтобы добится того чтобы агент запустился и начал работать. Сообщение Messagebox "ERROR..." ни разу не возникало . Что бы это могло быть и как с этим бороться, хотя бы знать как программно определить - выполнился агент или нет ?