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
**********************************************************
Salvare automaticamente un documento..
- 04/28/2005
- 0 commenti
0 Commenti:
Nessun Commento Trovato