I
Idea
Доброго времени суток!
Возникла задачка - при нажатии кнопки в вебе, нужно создать документ в почте по форме BookMark и открыть его на редактирование. Ничего не придумала лучше, чем агент на лотус скрипте с джаваскриптовой вставкой. Проблема в передаче параметра. (см код) Подскажите, плиз, как довести до ума нижеследующий код или, если возможно, более удачное решение проблемы.
Возникла задачка - при нажатии кнопки в вебе, нужно создать документ в почте по форме BookMark и открыть его на редактирование. Ничего не придумала лучше, чем агент на лотус скрипте с джаваскриптовой вставкой. Проблема в передаче параметра. (см код) Подскажите, плиз, как довести до ума нижеследующий код или, если возможно, более удачное решение проблемы.
Код:
Set session= New NotesSession
Set reg = New NotesRegistration
reg.RegistrationServer = "lotus2/IATE"
Set curdoc=session.documentcontext
user = curdoc.CurrUser 'получаем всю инфу о драгоценном юзвере
Call reg.GetUserInfo(user(0), mailserver$, mailfile$, maildomain$, mailsystem%, profile$)
mailDBServ = mailserver$
mailDBName = mailfile$+".nsf"
Set maildb = session.GetDatabase(mailDBServ, mailDBName, False)
Set doc = maildb.CreateDocument
doc.Form = "BookMark"
sbj = "Link document: " + curdoc.GetItemValue("Title")(0)
doc.Subject = sbj
Set rtitem = New NotesRichTextItem(doc, "Body" )
Call rtitem.AppendDocLink( curdoc, " " )
Call rtitem.Update
Call doc.Save(True, True, True)
theURL = "http://" + mailDBServ +"/"+ mailDBName +"/" + doc.UniversalID + "?EditDocument"
Print "<script LANGUAGE=JavaScript>"
Print " window.open( вот сюда бы вставить theURL).focus();"
Print "</SCRIPT>"