Der Link funktioniert wunderbar. Hier das Skript:
Unencrypting mail
Vladimir Tankhimovich
27 Dec 2001, Rating 5.00 (out of 5)
To unencrypt mail, create a LotusScript agent and run it using ID with the same public key that was used to encrypt.
Code
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim coll As NotesDocumentCollection
Set db = session.CurrentDatabase
Set coll = db.allDocuments
Set docMemo = coll.GetFirstDocument
While (Not docMemo Is Nothing)
Set item = docMemo.GetFirstItem("Body")
If Not item Is Nothing Then item.IsEncrypted = False
Set item = docMemo.GetFirstItem("Encrypt")
If Not item Is Nothing Then Call item.Remove
Set item = docMemo.GetFirstItem("$Seal")
If Not item Is Nothing Then Call item.Remove
Call docMemo.Save(False, False)
Set docMemo = coll.GetNextDocument(docMemo)
Wend
End Sub