Verschlüsselte Mails entschlüsseln

[Unwissender 0815]

Hallo zusammen, ich habe bei einem Kunden die Journaling eingeschaltet. Bestimmte Mails werden entsprechend einer Regel in der journal Datenbank verschlüsselt gespeichert. Die ID habe ich dazu also kann ich die verschlüsselten Mails auch problemlos lesen. Der Kunde möchte nun ein paar Mails aus dem Journal haben. Die ID dazu möchte ich ihm natürlich nicht geben denn dann könnte er ja ne Menge Unsinn  mit machen. Deshalb habe ich die gewünschten Mails in eine neue Datenbank kopiert und dort sollte er sie lesen können. Dazu müsste ich sie aber erst noch entschlüsseln. Hat jemand ein Script / Agent o.ä. mit dem ich die Mails entschlüsseln kann. Es sind nur ca. 20 Mails. Danke schonmal vom Unwissendem 0815

[tfrenz]

Hy, nur mal so ganz kurz ein Script gemacht.
Ist aber nicht getestet.
Das ganze muss natürlich mit der Verschlüssselten ID ausgeführt werden.

Gruß Thomas

   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim vw As NotesView
   Dim doc As NotesDocument

   Set db = s.CurrentDatabase
   Set vw = db.GetView("XXX")   '(“XXX")    'Hier z.B."($Inbox)"
   Set doc = vw.GetFirstDocument

   While Not doc Is Nothing
      Call doc.Removeitem("$Seal")
      Call doc.Removeitem("$SealData")
      Call doc.Removeitem("Encrypt")

      Call doc.save(True, False)

      Set doc = vw.Getnextdocument( doc )
   Wend

[Werner Götz]

@tfrenz:
Das klappt auch bei Richtextfeldern und Anhängen in Richtextfeldern?
Ich meine mich zu erinnern, dass ich da früher mal Probleme hatte, mit dieser Methode die Verschlüsselung zu einem Dokument vollständig aufzuheben, weiß aber nicht mehr genau, was genau das Problem war ...

-Werner  

[Tode]

Also bei dem Script bin ich mir nicht sicher... durch das entfernen von $Seal und $SealData ENTFERNST Du die verschlüsselten Daten aus dem Dokument... probiert habe ich das nicht, aber es kommt mir vom "Bauchgefühl" her falsch vor...

Wir verwenden ganz einfach:

Code

Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim vw As NotesView
   Dim doc As NotesDocument

   Set db = s.CurrentDatabase
   Set vw = db.GetView("XXX")   '(“XXX")    'Hier z.B."($Inbox)"
   Set doc = vw.GetFirstDocument

   While Not doc Is Nothing
      If Cstr (doc.GetItemValue ("Encrypt")(0)) = "1"  Then			
	  Call doc.removeitem("Encrypt")
	  Call doc.Save(True, False,False)
      End If
      Set doc = vw.Getnextdocument( doc )
   Wend

Das reicht vollkommen aus (wenn es wie bereits gesagt mit der ID ausgeführt wird, die die Verschlüsselung durchgeführt hat)