Код
' Set the saveoptions so that the user is not prompted when the document closes.
cDoc.SaveOptions = "0"
Call cDoc.Save (True, False)
' Close the document in the UI
Call uidoc.Close (True)
' get the document back
' Re-open the document in the UI
Set uidoc = ws.EditDocument(True, Cdoc)
Dim CdocN As NotesDocument
Set CDocN= uidoc.Document
cdocN.saveOptions="1"
cDoc.SaveOptions = "0"
Call cDoc.Save (True, False)
' Close the document in the UI
Call uidoc.Close (True)
' get the document back
' Re-open the document in the UI
Set uidoc = ws.EditDocument(True, Cdoc)
Dim CdocN As NotesDocument
Set CDocN= uidoc.Document
cdocN.saveOptions="1"
