By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
To unencrypt mail, create a LotusScript agent and run it using ID with the same public key that was used to encrypt.
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