"Encrypt"-Wert per Script ändern???

[dasRalph]

Hallo!!!

Ich hab mir das Script, welches das ReturnReceipt verhindert für die LoNo Version 4.6.x umgeschrieben, dies funktioniert auch schon wunderbar.

Nun wollte ich noch mit diesem Script bei einer Mail, die verschlüsselt ist, die Verschlüsselung aufheben. Dazu dachte ich mir, dass ich einfach den Wert des Feldes "Encrypt" ändere. Doch dies geht nicht, oder darf es nicht per Script geändert werden??? Ich hab in der Hilfe nichts gefunden ob ich den Wert per Script ändern darf oder nicht. Wer hat einen Tip???

Hier das Script:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   
    Dim doc As NotesDocument    
    Set doc = source.document
   
    If IsNewDoc Then
    Else
         
         doc.Encrypt="0"
         
         Dim pr As Variant
         pr = doc.GetItemValue("ReturnReceipt")
         If pr(0)="1" Then   'Wird Empfangsbestätigung gewünscht?
              boxType& = MB_YESNO
              answer% = Messagebox ("Der Absender erwartet eine Empfangsbestätigung." + Chr(13) + "Möchten Sie diese versenden?", boxType&, Empfangsbestätigung?")
              If answer% = 7 Then
                   doc.ReturnReceipt="0"   'nein, Empfangsbestätigung nicht senden
              End If
         End If
    End If
   
End Sub

Und hier die Fehlermeldung, die schon beim Speichern der Maske kommt:
Memo: Queryopen: 9: Unexpected: =; Expected: Expression; End-of-statement; ,; BYVAL

[livingdive]

Hallo

'BYVAL ' bedeutet by Value also wert. Aus deinem Feld extrahierst du einen solchen ( pr = doc.GetItemValue("ReturnReceipt")
).in deiner if abfrage verwendest du aber als vergleichswert ein char(zeichen). da muckt notes etwas rum. du hast zwei möglichkeiten. entweder du setzt in der if-abfrage nicht "1" sondern 1 oder du setzt den wert pr(0) auf string mit str(pr(0)) . das sollte dann so funzen

livingdive

[dasRalph]

Hallo!!!

Sorry, ich hab mich da was blöd ausgedrückt, war ein schwerer Tag wo ich es schrieb.

Die Zeile

doc.Encrypt="0"

macht den Fehler, wenn ich diese weg lasse, dann funktioniert alles.

Laut Hilfe hat das Feld "Encrypt" den Wert "0" oder "1", nur weder den einen noch den anderen kann ich in diese Zeile schreiben, es geht einfach nicht :-(

Schönen Abend noch!!!

Ralph

[Meff]

Hi Ralph,

schau Dir das mal an :

http://www.atnotes.de/cgi-bin/yabb/YaBB.pl?board=R5TIP;action=display;num=1029233863

Meff