troubles mit Encrypt

[shithappens]

hi, hab ein kleines problemchen mit encrypt und zwar folgendes:

ich versuche gearde eine Maske für eine Passwortänderung zu erstellen. Klappt alles supa nur eins geht nicht, das Passwort verschlüsselt werden. Ich geb euch mal den code vielleicht könnt ihr was damit anfangen.

     Messagebox "doc gefunden"
     Set pwitem = doc.ReplaceItemValue("HTTPPassword", sPW)
     pwitem.isEncrypted = True
     Messagebox pwitem.isEncrypted
     Call doc.Encrypt()
     Call doc.save( True, True)
     Messagebox "neuesPW"& sPW &" gesetzt"

bis auf das verschlusseln funzt alles nur das eben nicht und ich find einfach nicht den fehler

[alexB]

Ich mache etwas ähliches, hier wird aber das ganze Dokument verschlüsselt. Vieleicht hilfts:

Function ModifyField(DocToModify As NotesDocument, FieldToModify As String, NewFieldContent As String) As Integer
...
...
DocToModify.IsEncryptet = True
Call DocToModify.Encrypt
ModifyField = DocToModify.Save (True, True)      
...