Examples: Save method (NotesDocument - LotusScript®)

  1. This script creates and saves a new document in the current database. Because the document is new, there is no chance of conflicting edits, so the first parameter is False. 
    Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Main Topic"
doc.Subject = "Here's a new document"
Call doc.Save( False, False )
  2. This view action script changes the Status item on each document selected in a view. If someone else edits one of the documents at the same time, the document is not saved. Instead, a response document that contains the change to the Status item is created and saved.
    Dim session As New NotesSession 
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
  doc.Status = "Processed by view action"
  Call doc.Save( False, True )
  Set doc = collection.GetNextDocument( doc)
Wend
  3. This view action script changes the Status item on each document selected in a view. If someone else edits one of the documents at the same time, the document is not saved. For each selected document, the script displays a message informing the user if the document was saved or not.
    Dim session As New NotesSession 
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
  doc.Status = "Processed by view action"
  If doc.Save( False, False ) Then
    Messagebox "Document " & doc.UniversalID & _
       " successfully saved" 
  Else
    Messagebox "Document " & doc.UniversalID & _
       " was not saved" 
  End If
  Set doc = collection.GetNextDocument( doc)
Wend
  4. This script changes the Status item in a document. Because the first parameter is True, the document gets saved, even if someone else edits the document while the script runs.
    Dim doc As NotesDocument
'...set value of doc...
doc.Status = "This change gets saved no matter what"
Call doc.Save( True, True )