Kak Poslat Soobschenie Iz Formi Answer So Vstav...

[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...

 

[Guest]

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

 

[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:-(

 

[Olga23]

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

 

[Medevic]

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

 

[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

 

[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....

 

[Medevic]

<!--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]
Что именно ?
Этот код создаст документ с копией другого. Попробуй создай кнопку и посмотри, что будет.

 

[Olga23]

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

 

[Medevic]

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

 

[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?

 

[Medevic]

<!--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. Что убрать решай сама.

 

[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?
?

 

[Medevic]

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