Уважаемые форумчане, помогите решить следующую проблему. Необходимо создавать документ Reminder в календаре и заполнять его поля при нажатии кнопки. код которой представлен ниже. Суть действа - из документа берется его заголовок, дата события, период уведомления, и список адресов, которым послать оповещение в указанное время. Проблема первая- дата задается в поле текущего документа MDate, и успешно из него извлекается (формат даты аналогичен как в Reminder), но в соответствующее поле Reminder-а она не записывается. Проблема вторая - необходимо заполнить поля подформы Reminder-а для нотификации. Как обратиться из лотусскрипт к полям с именами, начинающихся со знака $??? Ругается он на них страшно.
Код:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim maildb As NotesDatabase
Dim doc As NotesDocument
Dim mailDBName As Variant
Dim pee As Variant
Dim sbj As Variant
Dim uidoc As NotesUIDocument
Dim rtitem As NotesRichTextItem
Set uidoc = ws.CurrentDocument
mailDBName = Evaluate({@MailDbName})
Set maildb = session.GetDatabase(mailDBName(0), mailDBName(1), False)
pee = ws.PickListStrings(PICKLIST_CUSTOM, True, "lotus2/IATE", "PRANAPrj.nsf" , "PranaTeam", "Notify users","Select some addressees", 2)
If Not Isempty(pee) Then
Set doc = maildb.CreateDocument
doc.Form = "Appointment"
doc.AppointmentType = "4"
doc.StartDate =uidoc.Document.MDate //дату получаем, но никуда не пишем
doc.dispAlarms = "1"
doc.tmpOffset = uidoc.Document.Timeout
doc.AlarmMemoOptions = "2" //на самом деле $AlarmMemoOptions
delim = ","
doc.AlarmSendTo = Implode(pee, delim) // на самом деле $AlarmSendTo
sbj = "Actually Milestone: " + uidoc.FieldGetText( "Title" )
doc.Subject = sbj
Set rtitem = New NotesRichTextItem(doc, "Body" )
Call rtitem.appendText("Document link:")
Call rtitem.addNewLine(2)
Call rtitem.AppendDocLink( uidoc.document, " " )
Call rtitem.Update
End If
End Sub