Как из Лотус-скрипт запустить собачьего агента.

[rm2005]

Из Лотус-скрипта запускаю агента, написанного на собачьих формулах. Выдается: Notes error: @Function is not valid in this context
Неужели нет никаких способов его запустить?

Текст:

Sub Click(Source As Button)
Dim Session As New NotesSession
Dim CurrentDataBase As NotesDatabase	
Dim Agent As NotesAgent	 
Set CurrentDataBase =Session.CurrentDatabase
Set Agent=CurrentDataBase.GetAgent("(SelectDBOnServer)")
Call Agent.Run -> здесь ошибка
End Sub

Сам агент:

Result:=@Prompt([ChooseDatabase];"";"");
@If(@Elements(Result)>0; @Do(@SetField("ServerName";@Name([CN];Result[1]));@SetField("BaseName";Result[2]));@False)

 

[Medevic]

Для: rm2005
Тебе вообще не надо агент использовать. Всё это прекрасно делается на скрипте.
А вообще можно использовать Evaluate.

 

[rm2005]

Для: Medevic
На скрипте не нашел аналог @Prompt([ChooseDatabase];"";"");
Evaluate попробую

 

[Medevic]

<!--QuoteBegin-rm2005+18:04:2007, 09:43 -->
<span class="vbquote">(rm2005 @ 18:04:2007, 09:43 )</span><!--QuoteEBegin-->На скрипте не нашел аналог @Prompt([ChooseDatabase];"";"");

[snapback]62674" rel="nofollow" target="_blank[/snapback]​

[/quote]
notesUIWorkspace.Prompt(13, "", "")

 

[rm2005]

Для: Medevic
Коллега!!! Вы гений!!!

notesUIWorkspace.Prompt(13, "", "")

такого я даже в справке не нашёл. Прекрасно всё работает. Большое спасибо.