Шифрование полей

Oksana

Lotus team
10.01.2006
329
0
#1
Есть документ в нем поле RTF, с параметром безопасности "Применить шифрование". Использую переключатель с выбором Шифровать/Не шифровать, который присваивает полю "SecretEncryptionKeys" либо имя ключа шифрования либо отменяет его (пустое значаение). Как только применяю шифрование, приаттаченные файлы остаются как и были в поле RTF в виде картинки, но при обращении к ним выдается ошибка, что файла не существует.

В чем может быть проблема?

Делала однажды такой документ, все работало, в этот раз не могу найти ошибку.
 

Вложения

Oksana

Lotus team
10.01.2006
329
0
#2
Создала пустую базу, одну форму, один вид. Проверила шифрование - работает. Иду в первую базу - не работает. Где рыть, что рыть? :-(
 

Oksana

Lotus team
10.01.2006
329
0
#3
Я тут тихо сама с собой беседую.
Ну если кому интересно, создала в этой же базе новую форму, перенесла все один в один из старой - работает. Это, конечно, радует.
Но в чем был прикол так и не узнала ...
 

Oksana

Lotus team
10.01.2006
329
0
#4
Нашла что мешает работе шифрования. Но не знаю как с этим справиться.
А не работает потому что в PostSave скрипт стоит

Sub Postsave(Source As Notesuidocument)
Dim rtitem As NotesRichTextItem
Set rtitem = Source.Document.GetFirstItem("B")
If Isempty(rtitem.EmbeddedObjects) Then Source.Document.BB = "0" Else Source.Document.BB = "1"
Call Source.Document.Save(True, True, True)
End Sub

см тему http://codeby.net/forum/threads/6139.html

И скрипт нужен и шифрование нужно, помогай Mevedic еще раз )))
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#5
Попробуй так:
Код:
Sub Postsave(Source As Notesuidocument)
Dim rtitem As NotesRichTextItem
Set rtitem = Source.Document.GetFirstItem("B")
If Isempty(rtitem.EmbeddedObjects) Then Source.Document.BB = "0" Else Source.Document.BB = "1"
rtitem.IsEncrypted = True
Source.Document.EncryptionKeys = твои ключи
Call Source.Document.Encrypt
Call Source.Document.Save(True, True, True)
End Sub