DominoArea.org [Archive]

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

et avec une copie du masque memo ?

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

je ferais une copie

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

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