Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: dasRalph am 09.07.02 - 10:33:10
-
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
-
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
-
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
-
Hi Ralph,
schau Dir das mal an :
http://www.atnotes.de/cgi-bin/yabb/YaBB.pl?board=R5TIP;action=display;num=1029233863
Meff ;)