Всем привет
Идея такова
на вю где надобно в некоторие документи добавить поле hidden и присвоить етому полю значение припустим "1"
пишу
Идея такова
на вю где надобно в некоторие документи добавить поле hidden и присвоить етому полю значение припустим "1"
пишу
Код:
Dim ses As New NotesSession
Dim ws As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim item As NotesRichTextItem
Dim dc As NotesDocumentCollection
Dim db As NotesDatabase
Set ws = New NotesUIWorkspace
Set uidoc = ws.EditDocument( True ) - откривает документ, а мона сделать так чтоб дока не откривалась?
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document - почемуто не определяет документ хотя он открился:(
Set item = doc.CreateRichTextItem("hidden")
Call item.AppendText("1")
Call doc.Save( False, True )
Call uidoc.Close(True)