Cleric-Lviv
Well-known member
Привет всем! Вопрос таков есть форма далее несколько полей "SendTo" под каждим из полей кнопка отослать. Вопрос что и где и как сменит в даном скрипте чтоб отсилало юзеру котирий вибран в даном поле.
тоесть под полем "SendTo" ета кнопка под "SendTo1" другая и так далее
[codebox]
Sub Click(Source As Button)
Dim ses As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim sd As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = ses.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set sd = uidoc.Document
If Not (sd Is Nothing) Then
Set doc = New NotesDocument(db)
doc.Form = "Memo"
doc.Subject = "Ознайомтесь з документом"
Set rtitem = New NotesRichTextItem( doc, "Body" )
Call rtitem.AddNewLine(1)
Call rtitem.AppendDocLink(sd, db.Title)
Call rtitem.AppendText(" (" + sd.category(0) + ") " + sd.Subj(0))
Call rtitem.AddNewLine(1)
Call doc.Send( False, sd.SendTo )
If Trim(sd.СС(0)) <> "" Then
Call doc.Send( False, sd.СС )
End If
doc.Form = "trace"
doc.SendTo = sd.SendTo
doc.CC = sd.CC
Call doc.Save(False,False)
Msgbox "Повідомлення надіслано."
Else
Msgbox "Помилка. Повідомлення не надіслано."
End If
End Sub[/codebox]
вспонил ещо можно ли ограничить размер атачмента? используя
@Command([EditGotoField];"bod");
@Command([EditInsertFileAttachment])
тоесть под полем "SendTo" ета кнопка под "SendTo1" другая и так далее
[codebox]
Sub Click(Source As Button)
Dim ses As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim sd As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = ses.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set sd = uidoc.Document
If Not (sd Is Nothing) Then
Set doc = New NotesDocument(db)
doc.Form = "Memo"
doc.Subject = "Ознайомтесь з документом"
Set rtitem = New NotesRichTextItem( doc, "Body" )
Call rtitem.AddNewLine(1)
Call rtitem.AppendDocLink(sd, db.Title)
Call rtitem.AppendText(" (" + sd.category(0) + ") " + sd.Subj(0))
Call rtitem.AddNewLine(1)
Call doc.Send( False, sd.SendTo )
If Trim(sd.СС(0)) <> "" Then
Call doc.Send( False, sd.СС )
End If
doc.Form = "trace"
doc.SendTo = sd.SendTo
doc.CC = sd.CC
Call doc.Save(False,False)
Msgbox "Повідомлення надіслано."
Else
Msgbox "Помилка. Повідомлення не надіслано."
End If
End Sub[/codebox]
вспонил ещо можно ли ограничить размер атачмента? используя
@Command([EditGotoField];"bod");
@Command([EditInsertFileAttachment])