Skagite pogalujsta, kak zapomnit v podforme dokumenta, v kotoroj est 3 polya kto poslal, komu i kogda, kogda chelovek nagimaet knopku s kodom:
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
uidoc.Close
End Sub
Pri etom otkrivaetsya okno standartnogo e-mail mail boxa Lotus Notes. Tam v svojstvah dokumenta est polya, kotorie mne nado zapomnit, no problema kak ih svyazat s formoj iz kotoroj proishodit vizov?
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
uidoc.Close
End Sub
Pri etom otkrivaetsya okno standartnogo e-mail mail boxa Lotus Notes. Tam v svojstvah dokumenta est polya, kotorie mne nado zapomnit, no problema kak ih svyazat s formoj iz kotoroj proishodit vizov?