Retirer le chiffrement d'un Mail

[Michael DELIQUE]

ce code permet de retirer le chiffrement d'un mail, mais il ne peut fonctionner que si le code est lancé par l'ID qui a chiffré le mail

Merci a DomNotes pour le Code

Code : Tout sélectionner

Dim session As New notessession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim collection As NotesDocumentCollection
    Dim i As Integer
    Dim encryptFlag As Variant
    Dim item As NotesItem
   
    Set db = session.CurrentDatabase
   
    Set collection = db.UnprocessedDocuments
   
    i=1
    Set doc = collection.GetFirstDocument()
     Call doc.removeitem("$Seal")
      Call doc.removeitem("$SealData")
      Call doc.removeitem("Encrypt")
      Call doc.save(True, False)

    Print "décryptage du document " + Cstr(I) + " sur " + Cstr(db.UnprocessedDocuments.Count)
    I=I+1
    Set doc = collection.GetNextDocument(doc)