Лучше сделай агента по событию "agent list selection". В нем делай рассылку.
Вызывай агент после сохранения документа(в PostSave событии).
Спасибо, работает. Отправка уведомления происходит и при добавлении нового документа, и при редактировании уже существующего.
Мне необходимо сделать так, чтобы агент запускался только при добавлении вновь создаваемых документов.
Код PostSave события с проверкой на новый документ:
Sub PostSave(Source As NotesUIDocument)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db=s.CurrentDatabase
Set agent=db.GetAgent("SendNewDocInfo")
If Source.IsNewDoc Then
If agent.Run=0 Then
Messagebox "Уведомление отправлено",,"Success"
Else
Messagebox "Ошибка отправки уведомления",,"Failure"
End If
End If
End Sub
С этим скриптом агент не запускается.
Свойства Агента SendNewDocInfo(выполнение: вручную из списка агентов; документы: все новые и измененные документы; запуск: простые действия(список адресатов)).
Как правильно провести проверку на новый документ?
Спасибо
