Client Notes qui se plante pendant un agent

[mike76]

J'ai réussi à ouvrir avec un nouveau masque, mais il n'y a plus déchiffrage du mail

[Michael DELIQUE]

et avec une copie du masque memo ?

[mike76]

j'avais fait le test effectivement en copiant le masque Memo, j'ai retiré le queryopen, le postopen, le querysave, le postsave et le queryclose
j'ai dû en retiré trop à mon avis

[Michael DELIQUE]

je ferais une copie

et ne changerais que le nom du form et le code necessaire au close

[mike76]

j'ai essayé pas mieux.

J'ai Jérôme qui vient de me filer un super code :

Code : Tout sélectionner

Sub Initialize()
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim nextdoc As NotesDocument
   
   
   Set db=s.CurrentDatabase
   Set collection=db.Search({Encrypt="1"},Nothing,0)
   If collection.Count>0 Then
      Set doc=collection.Getfirstdocument()
      While Not (doc Is Nothing)
         Set nextdoc=collection.Getnextdocument(doc)
         
         ' the below loop is mandatory to ensure that all $File entries are unecrypted
         ForAll i In doc.Items
            If i.isencrypted Then
               i.isencrypted=false
            End If
         End ForAll
         
         ' must have at least 1 field encrypted in order to call Encrypt method
         Dim temp As New NotesItem(doc,"tempjunk","temp")
         temp.Isencrypted=True
         Call doc.Encrypt()
         Call doc.Save(True,False)
         
         ' this portion can now remove the fields relative to encrpying the single token encrypted field
         Call doc.Removeitem("$Seal")
         Call doc.Removeitem("$SealData")
         Call doc.Removeitem("SecretEncryptionKeys")
         Call doc.Removeitem("Encrypt")
         Call doc.Save(True,False)
         Set doc=nextdoc
      Wend
   End If

End Sub

c'est rapide efficace.
Merci encore à tous pour votre aide. Je vais de ce pas créer un TIP pour ce sujet