Lotus Notes / Domino Sonstiges > Tools & Downloads
Suche Tool für Entschlüsselung
Desperado:
Meine Mails sind unter Lotus Notes standardmäßig verschlüsselt. Wenn ich die Verschlüsselung aufhebe, gilt das nur für neu ankommende Mails. Wie kann ich meine alten Mails entschlüsseln?
Für jeden Hinweis bin ich dankbar.
Meff:
Hi Desperado,
das Thema wurde bereits ein paar mal im Forum besprochen. Schau mal hier rein, das kann Dir vielleicht helfen.
http://www.atnotes.de/cgi-bin/yabb/YaBB.pl?board=R5TIP;action=display;num=1029233863
Meff ;)
Desperado:
Wäre toll, aber die Seite gibt's nicht. Gibt es noch eine andere Quelle, denn das mit dem Script wäre genau das richtige.
Bei dem Link wird verwiesen auf http://searchdomino.techtarget.com/tip/1,289483,sid4_gci788705,00.html?F romTaxonomy=%2Fpr%2F283826 ,
aber die Seite gibt's nicht, es gibt nicht mal die Seite
http://searchdomino.techtarget.com/
Bitte dringend um Hilfe.
JoJo:
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
Meff:
@Forum
ich habe noch ne andere Lösung, werde diese mal auf unseren Server legen.
Meff ;)
Navigation
[0] Themen-Index
[#] Nächste Seite
Zur normalen Ansicht wechseln