Bonjour à tous,
J' ai des cases à cocher sur des documents déjà enregistrés, pour un nouveau traitement j'ai ajouter des alias, je souhaite relire tous mes documents et les réenregistrer par un agent pour prendre la modif de l'alias.
J'ai essayé un agent avec des commandes (editdocument, filesave) mais çà ne fonctionne. J'ai aussi essaye un agent en ls, mes champs ne sont pas modifiés.
Pouvez vous m'aider svp
[syntax="LotusScript"][/syntax]
Sub initialize
Dim Session As NotesSession
Dim DB As NotesDatabase
Dim Doc As NotesDocument
Dim dc As NotesDocumentCollection
On Error GoTo ErrorHandler
Set Session = New NotesSession
Set DB = Session.currentdatabase
Set dc = DB.unprocessedDocuments
Set doc = dc.GetFirstDocument
While Not doc Is Nothing
Doc.form="Ermancia"
Call Doc.Save(False,False)
Set doc = dc.GetNextDocument( doc )
Wend
Exit Sub
ErrorHandler :
MsgBox "Erreur " & Err & " ligne " & Erl & " : " & Error
Exit Sub
End Sub