Memo

Тема в разделе "Lotus - Программирование", создана пользователем Cleric-Lviv, 11 июн 2008.

  1. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    Привет всем! Вопрос таков есть форма далее несколько полей "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])
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    sd.SendTo - менять на то имя поля возле которого кнопка
     
  3. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    впринципе так и думал:rolleyes:
     
Загрузка...

Поделиться этой страницей