Kak Poslat Soobschenie Iz Formi Answer So Vstav...

Тема в разделе "Lotus - Программирование", создана пользователем Olga23, 11 янв 2006.

Статус темы:
Закрыта.
  1. Olga23

    Olga23 Гость

    U menya takoe zadanie, nado poslat soobschenie dalshe na drugogo cheloveka, dlya etogo nado sdelat knopochku, kotoraya bi otkrivalastandartnuju formu E-mail(formu otveta), a v neyyy bila vozmognost napisat chto to i nige bilo bi vidna forma, v kotoroj nahoditsya eta knopochka poslat dalshe...(Ya imeyu vvidu ne tage samaya forma, a forma tochno takaya ge, no nemnogo izmenennaya...
     
  2. Гость

    А в чем сложность?
    Создайте другую форму на основе уже имеющейся.
    Добавьте кнопку "Отправить дальше", в которую добавьте нужный код.
    На старую форму добавьте кнопку, которая открывает эту измененную форму.
    Для всех этих функций, если я не ошибаюсь есть даже Simple Action.
    Ну и все. :)
     
  3. Olga23

    Olga23 Гость

    Dak v tom to vse i delo, chto knopka dolgna bit v origninale formi, a ne v drugoj. Ya tut nashla funkziju @Command([MailForward]); pri pomoshi kotoroj mogu otkrit standartnoe Memo s vstavlennoj tuda formoj, no forma dolgna bit ne originalnaya, a drugaya, v kotoroj polya nelzya redaktirovat v otlichie ot poley v originalnoj foirme i vse polya nasledujutsya iz formi originala...No vot problema, kak eto sdelat, ved ispolzuja funkziju @Command([MailForward]); ya otkrivayu formu original, iz kotoroj ya i vizvala etu funkziju:-(
     
  4. Olga23

    Olga23 Гость

    Da da Vi pravi naschet simple Actions, no ved esli iz odnoj formi otkrivat druguju, a potom poslat dalee, eto vihodit ochen dolgo...
     
  5. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Форму тебе нужно свою делать (или заново, или взять за основу стандартную Memo).
    В ней долно быть Rich-Text Compudet поле "Body". В ней и будет содержаться старый документ.
    Сам документ с копией другого создаешь через @Command([ComposeWithReference]; "" ; "имя формы" ; 1 + 2).
     
  6. Olga23

    Olga23 Гость

    <!--QuoteBegin-Medevic+11:01:2006, 16:27 -->
    <span class="vbquote">(Medevic @ 11:01:2006, 16:27 )</span><!--QuoteEBegin-->Сам документ с копией другого создаешь через @Command([ComposeWithReference]; "" ; "имя формы" ; 1 + 2).
    [snapback]29187" rel="nofollow" target="_blank[/snapback]​
    [/quote] ne ponyala...

    A voobsche vot kod knopki:
    Sub Click(Source As Button)
    Dim wks As New NotesUIWorkspace
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim mdoc As NotesDocument
    Dim rt As NotesRichTextItem

    Set db=wks.CurrentDatabase.Database
    Set doc=wks.CurrentDocument.Document
    Set mdoc=db.CreateDocument
    Dim tdoc As NotesDocument
    Set tdoc=db.CreateDocument
    Call doc.CopyAllItems(tdoc,False)
    tdoc.form="Notice_Memo" --->eto forma, kotoraya dolgna kopirovatsya v otvete
    Set rt=mdoc.CreateRichTextItem("Body")
    Call tdoc.RenderToRTItem(rt)
    mdoc.form="Memo"
    Call mdoc.Save(True,False)
    Call wks.EditDocument(True,mdoc,False)

    End Sub
     
  7. Olga23

    Olga23 Гость

    :) I eshe nado sohranit otpravlennij dokument, chtobi on otobragalsya vo View, gde i dr dokumenti, a takge v history dokumenta iz kotorogo mi nagali knopku, dolgno zapomnitsya imya cheloveka, poslavshego....
     
  8. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    <!--QuoteBegin-Olga23+12:01:2006, 13:31 -->
    <span class="vbquote">(Olga23 @ 12:01:2006, 13:31 )</span><!--QuoteEBegin-->ne ponyala...
    [snapback]29234" rel="nofollow" target="_blank[/snapback]​
    [/quote]
    Что именно ?
    Этот код создаст документ с копией другого. Попробуй создай кнопку и посмотри, что будет.
     
  9. Olga23

    Olga23 Гость

    eto-to to u menya kak raz i bilo...Ya ne ponimayu kak eto mogno svyazat s :
    Форму тебе нужно свою делать (или заново, или взять за основу стандартную Memo).
    В ней долно быть Rich-Text Compudet поле "Body". В ней и будет содержаться старый документ.
     
  10. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Ты говоришь, что тебе нужно сделать аналог @Command([MailForward]), только чтобы нельзя было редактировать прикрепленный документ. И чтобы была стандартная форма "Memo", но с дополнительной кнопкой.
    Я тебе и говорю, что нужно создать свою форму (на основе мемо). Где поле Body будет Computed. Только форму придется таскать с документом. Или в почтовой базе эту новую форму внести.
     
  11. Olga23

    Olga23 Гость

    seychas vse rabotaet, skript viglyadit tak:
    Sub Click(Source As Button)
    Dim wks As New NotesUIWorkspace
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim mdoc As NotesDocument
    Dim rt As NotesRichTextItem

    Set db=wks.CurrentDatabase.Database
    Set doc=wks.CurrentDocument.Document
    Set mdoc=db.CreateDocument
    Dim tdoc As NotesDocument
    Set tdoc=db.CreateDocument
    Call doc.CopyAllItems(tdoc,False)
    tdoc.form="NMemo"
    Set rt=mdoc.CreateRichTextItem("Body")
    Call tdoc.RenderToRTItem(rt)
    mdoc.form="Memo"
    Call mdoc.Save(True,False)
    Call wks.EditDocument(True,mdoc,False)

    Dim uidoc As NotesUIDocument
    Set uidoc = wks.CurrentDocument
    Call uidoc.forward

    End Sub

    NotizMemo-eto forma, kotoraya vstavlyaetsyav formu Memo, kotorya sostoit tolko iz polya Body tipa RichTextItem. No teper kogda nagimayu knopku s etim kodom, otkrivayutsya 2 dokumenta "Memo" s polem Body i standartnaya forma Mail box Lotus Notes s formoj Memo (kotoruju sozdala ya) vnutri. Kak sdelat tak,chtobi eta forma memo ne otkrivalas sama po sebe a bila tolko vnutri e-mail? To est otkrivalas kak vo 2 sluchae.
    I eshe u menya est pole v forme originale. Ono tipa radio button i ono Vichislyaemoe pri sostavlenii. Vibor takoj:
    tratra|1
    bla bla|2
    lala|3
    kuku|4
    gggg|5
    Vot a forme kotoraya NMemo, mne nado sdelat ego tekstovim i chtobi otobragalos tolko vibrannoe znachenie etoj radio button..Kak eto sdelat?
     
  12. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    <!--QuoteBegin-Olga23+12:01:2006, 16:04 -->
    <span class="vbquote">(Olga23 @ 12:01:2006, 16:04 )</span><!--QuoteEBegin-->Kak sdelat tak,chtobi eta forma memo ne otkrivalas sama po sebe a bila tolko vnutri e-mail? To est otkrivalas kak vo 2 sluchae.
    [snapback]29250" rel="nofollow" target="_blank[/snapback]​
    [/quote]
    2 документа открываются, потому что используешь wks.EditDocument и uidoc.forward. Что убрать решай сама.
     
  13. Olga23

    Olga23 Гость

    A kak naschet etogo:
    I eshe u menya est pole v forme originale. Ono tipa radio button i ono Vichislyaemoe pri sostavlenii. Vibor takoj:
    tratra|1
    bla bla|2
    lala|3
    kuku|4
    gggg|5
    Vot a forme kotoraya NMemo, mne nado sdelat ego tekstovim i chtobi otobragalos tolko vibrannoe znachenie etoj radio button..Kak eto sdelat?
    ?
     
  14. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    1. Создать еще одну форму на основе NMemo, где это поле будет текстовым. При RenderToRTItem использовать соответственно эту форму.
    2. Можно попробовать на форме NMemo создать текстовое поле со значением из radio-button поля и скрытое поле. Например Hide. По-умолчанию со значением @False. Текстовое поле скрывать, когда условие "!Hide", а radio-button поле когда условие "Hide". Перед вызовом RenderToRTItem присвоить полю Hide значение @True.
     
Статус темы:
Закрыта.

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