Hallo,
ich versuche ein geöffnetes Doc (Read) per Script zu schließen.
Das Doc soll nach dem erstmailgen Speichern nicht mehr bearbeitbar sondern nur noch archivierbar sein. Damit nicht wahllos archiviert wird, soll das Doc zum Lesen geöffnet sein. In der Form gibt einen Actionbutton, der folgenden Agent aufruft.
On Error Goto errHandler
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim archuser As String
Dim archtime As String
Set db = session.CurrentDatabase
Set doc = session.DocumentContext
'Get the current user and time
archuser = session.CommonUserName
archtime =Format(Now(), "Long Date")
'Set the archive field
Dim item As NotesItem
Set item = doc.ReplaceItemValue( "$ArchivedBy", archuser )
Set item = doc.ReplaceItemValue( "$ArchivedOn", archtime )
Call doc.Save( True, True )
Msgbox "Die Archivierung wurde durchgeführt." & Chr(10) & Chr(10) _
& "von: " & archuser & Chr(10) _
& "am: " & archtime & Chr(10) _
,64,"Archivierung durchgeführt"
exitScript:
Exit Sub
errHandler:
Msgbox "Es ist ein Fehler aufgetreten." & Chr(10) & Chr(10) _
& "Fehlermeldung: " & Error$ & Chr(10) _
& "Fehlernummer: " & Err & Chr(10) _
& "Codezeile: " & Erl & Chr(10) _
,64,"Error"
Resume exitScript
Klappt alles wunderbar. :)
Super wäre natürlich, wenn das Doc dann geschlossen werden würde und der User wieder in der View ist. Geht das im Backend überhaupt?
cu
der B@sti