Salvare automaticamente un documento..

TIPS DEVELOPERS

  • 0 commenti
Questo codice permette di fare in modo che ogni 60 secondi, un documento aperto in Notes venga salvato automaticamente, di modo  che non vengano perse le informazioni

**********************************************************
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

**********************************************************

0 Commenti:

    Nessun Commento Trovato
Commenta articolo
 

Questo spazio web è stato creato da per un uso pubblico e gratuito. Qualsiasi tipo di collaborazione sarà ben accetta.
Per maggiori informazioni, scrivete a info@dominopoint.it

About Dominopoint
Social
Dominopoint social presence: