verschlüsselte Einträge im Kalender

[SuperMaus]

Hallo,

bei einem User habe ich folgendes Problem:

Einige Einträge in seinem Kalender sind verschlüsselt, aber nicht alle. Seine Mails sind alle unverschlüsselt.

Meldung: Sie können auf Teile des Dokumentes nicht zugreifen, da es verschlüsselt ist und nicht für Sie bestimmt war.

Welche Einstellung muss ich ändern, um wieder alles auf unverschlüsselt zu stellen ?

Vielen Dank

[Jörg P.]

Hi,
dazu hab' ich mal was gefunden:

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

Quelle: http://searchdomino.techtarget.com/tip/1,289483,sid4_gci788705,00.html?FromTaxonomy=%2Fpr%2F283826