Auto save
This is a quick auto-save to prevent your users from losing all that work they've just put into typing a document.
This is a quick auto-save to prevent your users from losing all that work they've just put into typing a document.
REM Globals Dim elapsedTime As Integer Dim elapsedTimer As NotesTimer Dim nd As NotesDocument Dim nuid As NotesUIDocument Sub Onload(Source As Notesuidocument) REM Create a timer with 60-second interval REM Handler for Alarm event gets call every minute Set nd = source.Document Set nuid=source Set elapsedTimer = New NotesTimer(60, _ "Autosave interval") elapsedTime = 0 On Event Alarm From elapsedTimer _ Call elapsedTimerHandler End Sub Sub elapsedTimerHandler(Source As NotesTimer) If nuid.EditMode Then Call nuid.Save Print "Autosaved" End If End Sub
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip exchange by member Philip West. Please let others know how useful it is via the rating scale below. Do you have a useful Notes/Domino tip or code to share? Submit it to our monthly tip contest and you could win a prize and a spot in our Hall of Fame.



Download: IT Certifications 101
Inside this exclusive essential guide, our independent experts break down which IT certifications are worth your time and effort, and how to get started obtaining them to further your career— including specific certifications that any cloud or desktop pro should seriously consider.
By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.
You also agree that your personal information may be transferred and processed in the United States, and that you have read and agree to the Terms of Use and the Privacy Policy.
Start the conversation
0 comments