Hallo Jan,
im Querydocumentdelete des 6.5er Templates ist im Bereich, der die Ansicht $Sent behandelt, folgender Code-Schnipsel zu finden:
If (nAction = 1) Then
If doc.isuidocopen Then
noteid = doc.noteid
Delete doc
Set doc = source.database.getdocumentbyid(noteid)
doc.remove True
Else
' Remove All
Call source.documents.RemoveAll(False)
Exit For
End If
Elseif nAction=2 Then
' Remove from View...
Call doc.ReplaceItemValue( "ExcludeFromView", "S" )
' mark it read
Call doc.save( True, True, True )
End If
D.h. durch .ReplaceItemValue & .save wird das Dokument geändert, was scheinbar zu einer Entschlüsselung führt?!? Hätte ich so nicht erwartet, hab's jetzt aber auch nicht reproduziert.
Hallo,
das Problem ist tatsächlich der Codeabschnitt
Call doc.ReplaceItemValue( "ExcludeFromView", "S" )
' mark it read
Call doc.save( True, True, True )
welcher die Verschlüsselung wieder aufhebt.
Verwendet man stattdessen
Call source.documents.StampAll("ExcludeFromView", "S" )
bleibt die Verschlüsselung erhalten.
Gruß
André
Guten morgen,
die Korrektur stammt aus meiner Liste der regelmäßigen Anpassungen an der Mail-Schablone und wird bei uns seit Version 6.5 (über 7.0.2 bis hin zu 8.5.1) verwendet und funktioniert hier gut (habe ich gerade noch einmal getestet - auch als Admin sehe ich den verschlüsselten Inhalt nicht).
Der vollständige Codeabschnitt sollte so aussehen:
Elseif Strcompare(strViewName, "($Sent)") = 0 Then
' We are deleting from the Sent view; see if the user wants to delete or remove
' using CalPrefs instead of ini variable
Dim i As Integer
Dim doc As notesdocument
Dim noteid As String
On Error Resume Next
Set note = New NotesDocument(session.currentdatabase)
' prompt if they want prompting...
nAction=0 ' reinit global variable
Call promptUser( ws, note, profiledoc, DeleteSentPref, strViewName )
' bail if they cancel?
'continue =False
For i=1 To source.documents.count
Set doc = source.documents.GetNthDocument(i)
If (nAction = 1) Then
If doc.isuidocopen Then
noteid = doc.noteid
Delete doc
Set doc = source.database.getdocumentbyid(noteid)
doc.remove True
Else
' Remove All
Call source.documents.RemoveAll(False)
Exit For
End If
Elseif nAction=2 Then
' Remove from View...
' ***************** Anpassung wg. Verlust der Verschlüsselung ***********************
'Call doc.ReplaceItemValue( "ExcludeFromView", "S" )
' mark it read
'Call doc.save( True, True, True )
Call source.documents.StampAll("ExcludeFromView", "S" )
Exit For
' ****************************************************************************
End If
ws.viewrefresh
Gruß
André