Autosave Memo's in Notes

HCL Domino Domino Forum
1

I know there have been many postings begging for an autosave feature in Notes (not saving on sending, saving every few minutes). I have seen postings that suggest using the Timer command. So far, however, I have not found anything that actually explains how to correct this shortcoming.

Could someone post the actual code along with instructions how to incorporate it into my existing mail template so that my Notes will autosave a draft of my open memos (or at least the one I’m working on) every 3-5 minutes? I have done some LotusScript work, but for all practical purposes, only enough how to get to the editor. A step-by-step instruction set would be most appreciated.

Thanks in advance for your help. I think there a lot of people who will benefit from this information.

Cheers,

Colin

2

Subject: Its really all in the help, but…

Global Declarations for Form:Dim eTimer as NotesTimer

Dim doc as NotesDocument

Sub AutoSaveDoc()

 Print "AutoSaving the Document"

 Call doc.Save(True, True)

End Sub

PostOpen event for Form:

Set doc = Source.Document

Set eTimer as New NotesTimer(300, “AutoSave Function”) '300 Seconds is 5 Minutes

On Event Alarm From eTimer Call AutoSaveDoc()