Ein kleiner Codeschnipsel um eine DB zu signieren.
Wenn man diesen Code in einen Agenten packt und diesen Agenten signiert und nicht mehr anfasst und diesen Agenten dann über einen 2. Agenten per runOnServer aufruft, dann kann man auch mit einem User signieren, dessen Passwort / ID man nicht bekommt (Admin sei Dank).
Also die beiden Agenten vom Admin-User richtig signieren und dann nie wieder zum Admin rennen müssen
Vielleicht hilft der Code ja auch dem ein oder anderen geplagten Entwickler ;-)
Grüße David
Dim session As New NotesSession
Dim db As NotesDatabase
Dim nc As NotesNoteCollection
Dim nid As String, nextid As String 'note IDs
Dim i As Integer
Dim doc As NotesDocument
REM Create note collection
Set db = session.CurrentDatabase
Set nc = db.CreateNoteCollection(True)
nc.SelectDocuments = True
Call nc.BuildCollection
REM Modify the collection - take out test documents
nid = nc.GetFirstNoteId
For i = 1 To nc.Count
'get the next note ID before removing any notes
nextid = nc.GetNextNoteId(nid)
Set doc = db.GetDocumentByID(nid)
'Msgbox("<"+doc.Signer)
Call doc.Sign()
Call doc.Save(True,False,True)
'Msgbox(">"+doc.Signer)
nid = nextid
Next