1) Settare il campo SaveOptions a "0"
2) Salvare usando uidoc.save (doesn't really save because of the SaveOptions field)
3) Ottenere il riferimento al documento usando uidoc.Document
4) Chiudere il documento aperto usando uidoc.Close
5) Usare ws.EditDocument per riaprire il documento in modifica
Qui sotto viene riportato un esempio di codice che fa tutto questo
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim doc As NotesDocument
Set doc = uidoc.Document
Call doc.ReplaceItemValue("SaveOptions", "0")
uidoc.Save
Set doc = uidoc.Document
uidoc.Close
Call workspace.EditDocument(True, doc)
Call doc.RemoveItem("SaveOptions")
5 Commenti:
Ah! Ecco... non per altro, ma con Notes non si è mai sicuri di nulla :))
ciao
p.
Hai ragione infatti...Settando il campo SaveOptions a 0 la classe UI non salva effettivamente il documento...Pardon errore mio
Ma se imposti il campo SaveOptions = "0" e salvi in FrontEnd in teoria il documento non si dovrebbe salvare (altrimenti a che cavolo serve il SaveOptions?!), se non erro è il salvataggio in BackEnd che salva il documento a prescindere dal campo SaveOptions.
Vabbè, al di la di tutto è sempre meglio provare direttamente.
ciao
La prima istruzione obbliga a salvare il documento tramite la classe FrontEnd --> NotesuiDocument con il metodo SAVE.
quindi in realtà tutte le modifiche vengono salvate al documento...
Questo significa che se, prima di modificare un RTField, modifico uno o più campi normali quest'ultimi non vengono salvati?
Ho capito male?