Dokument per Timer schließen

    Hallo miteinander,
    ich hätte da gerne ein Problem.
    In einer Datenbank habe ich einen Timer etabliert, der ein geöffnetes Dokument nach einer bestimmten Zeit (2 Min.) automatisch schließen soll. Das klappt zwar auch, aber es wird nicht das Dokument geschlossen in dem der Timer läuft; sondern das momentan vom User bearbeitete, obwohl dieses sich in einer anderen DB befindet. Es schließt sich also immer das momentan aktive Dokumentenfenster.


    mein Code in der Sub für den Timer lautet:


    if OpenTime = 300 then
    dim Wks as New Notesuiworkspace
    dim uidoc as notesuidocument
    set uidoc = wks.currentdocument
    dim doc as notesdocument
    set doc = uidoc.document
    doc.SaveOptions = "0"
    call uidoc.close(true)
    end if


    Hat jemand einen Tipp für mich ?


    Gruß Harald

    taurec
    vielen Dank habe es mal so probiert, aber leider ohne Erfolg.


    If OpenTime = 120 Then
    Dim wks As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Set uidoc = wks.CurrentDocument
    Set doc = uidoc.Document
    Call wks.EditDocument(False,doc)
    doc.saveoptions = "0"
    Call uidoc.Close(True)
    End If


    Nun passiert leider überhaupt nichts mehr.

    Weil du da immer noch mit dem aktuellen Dokument arbeitest, d.h. es schliesst sich trotzdem nur das aktuelle Dokument.


    Du musst dir davor irgendwie das zu schliessende Dokument merken, dies hier dann wiederholen und öffnen und dann schliessen.

    taurec
    genau das war es.
    Ich habe das Script geändert und das Doc zuvor in den Globals definiert.


    If etime = 120 Then
    Dim wks As New NotesUIWorkspace
    Call wks.EditDocument(True, Doc,,,, False)
    doc.saveoptions = "0"
    Call uidoc.Close(True)
    End If


    Jetzt funzt es wunderbar.


    Vielen Dank,
    Gruß Harald