Wert von Sign und Encrypt ändern

[Joker]

Hallo,
versuche gerade ein Script zu schreiben, das mir bei bestimmten Vorraussetzungen die Feldwerte von "Sign" und "Encrypt" (Maske Memo in der Maildatenbank) auf "1" setzt, wie es auch in den Zustellungsoptionen geschieht, wenn man "Signieren" und "Verschlüsseln" auswählt. Das funktioniert jedoch nicht.

Bei der Funktion "ReplaceItemValue" über das Backend geschieht gar nichts und  über das Frontend mit FieldSetText bekomme ich die Fehlermeldung, dass dieser Feldwert nicht geändert werden kann. Warum ?

Vielleicht kann mir ja jemand von euch helfen.

Gruss
Martin

[koehlerbv]

Was soll das eigentlich bewirken ? Das sind doch Systemfelder, die dann von Notes gesetzt werden, wenn das Signieren und Encrypten stattgefunden hat !
Wenn man Brum-brumm macht, fährt doch das Auto auch noch lange nicht ;-)

[Joker]

Hi,
wenn man in den Zustelloptionen Signieren und Verschlüsseln auswählt, dann enthalten diese beiden Felder doch auch den
Wert "1".
Diesen Aufruf der Zustelloptionen möchte ich bei bestimmten Empfängern gerne automatisieren.

Gruss
Martin

[Glombi]

Hi Martin
bitte poste doch mal Deinen Script Code.

Das FieldSetText wird nicht gehen, da es sich um versteckte Felder handelt, die im UI Dokument also nicht sichtbar sind.

Das
call doc.ReplaceItemValue( "Sign", "1" )
call doc.ReplaceItemValue( "Encrypt", "1" )

müsste aber gehen.

Andreas

[Joker]

Hi,
Zustelloptionen automatisieren stimmt nich ganz. Besser gesagt, ich möchte dem Anwender den Aufruf der Dialogbox mit den Zustelloptionen ersparen und bei bestimmten Empfängern die Felder Sign und Encrypt automatisch auf "1" setzen.

Ciao
Martin

[koehlerbv]

Das kannst Du doch über die Benutzervorgaben machen. Wenn Du verhindern willst, daß diese Optionen wieder abgewählt werden, hilft nur das Aufbohren des Designs der Mailfiles.

[Joker]

Hi,
hier mein Code.

Dim ws As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim dc As NotesDocumentCollection
Dim note As NotesDocument
Dim MailAddress As String
Dim aktdoc As NotesDocument
   
Set ws = New NotesUIWorkspace
Set uidoc = ws.CurrentDocument
Set aktdoc = uidoc.Document
   
Set dc = ws.PickListCollection(1,True,"S1DX01","smime.nsf", "$MIME","Verschlüsselungspartner nach Firma","Bitte treffen Sie Ihre Auswahl: ")

Set note = dc.GetFirstDocument
   
If Not (note Is Nothing) Then
Call note.ReplaceItemValue( "Sign", "1" )
Call note.ReplaceItemValue( "Encrypt", "1" )
End If
   
While Not (note Is Nothing)
      
MailAddress = note.GetItemValue("MailAddress")(0)
Call uidoc.GotoField("EnterSendTo")
Call uidoc.FieldAppendText("EnterSendTo",MailAddress & ", ")
      
Set note = dc.GetNextDocument(note)
      
Wend

Zur Erklärung:
Es wird nur eine PickList angezeigt aus der der Anwender bestimmte Dokumente auswählt. Aus den ausgewählten Dokumenten sollen die Were im Feld "MailAddress" in das Feld EnterSendTo des neuen Mailmemos eingetragen werden. Funktioniert ja auch alles Prächtig.

Nur zuvor sollen eben die Werte der Felder Sign und Encrypt geändert werden. Wenn ich den Code Debugge steht der Wert "1" auch in den Feldern drin, doch im Dokument (habe die Verbergung aufgehoben) steht immer noch "0".  

[koehlerbv]

So ganz steige ich hier nicht durch ...
Du holst Dir eine Collection.
Im ersten Dokument der Collection versuchst Du, Sign und Encrypt zu setzen.

Dann kommt eine Schleife, die aus dem ersten und weiteren Dokumenten der Collection Infos holt. Warum wird Sign und Encrypt nur für das erste Dokument gesetzt ? Ist note nicht die Adressquelle ? Und uidoc Dein Memo ?

Noch ein Tip zur generellen Erleichterung des Belegens von Feldern:
Call note.ReplaceItemValue( "Sign", "1" )
ist das gleiche wie
note.Sign = "1"

oder
MailAddress = note.GetItemValue("MailAddress")(0)
ist das gleiche wie
MailAddress = note.MailAddress (0)

[Joker]

Hi,
kleiner Fehler durch das ständigen umbauen des Codes.

Ich möchte natürlich nicht in dem ersten Dokuement Sign und Encrypt setzen, sondern im neuen MailMemo. Muss also heißen:

If Not (note Is Nothing) Then
    Set item = aktdoc.ReplaceItemValue("Sign","1")
    Set item = aktdoc.ReplaceItemValue("Encrypt","1")
End If

Habe deine Kurzformen hier auch ausprobiert. Ist jedoch gar keine Speicherung möglich. Fehler:  Variable Required: SIGN bzw. Variable Required: ENCRYPT.

PS: Kannte die "Kurzform" schon. Benutze sie normalerweise auch. Bei diesen beiden blö... Feldern jedoch scheint dies nicht zu funktionieren.


Gruss
Martin

[koehlerbv]

Das mit dem Nicht-Funktionieren der direkten Feldbelegung, wie von Dir beschrieben, muß ich bei Gelegenheit mal nachvollziehen - ist mystisch.

actdoc ist das Backend-Doc Deines neuen Memos. Da siehst Du im Frontend natürlich nix von, bis Du ein Reload oder Refresh Deines Frontend-Docs machst. Probier das mal: Nach Abschluß Deiner Belegungen ein uidoc.Refresh.

Bernhard

[Joker]

Hi,

hab das schon x-mal versucht. Irgendwie werden die geänderten Werte im Frontend nicht angezeigt. Hab das ja bei anderen Feldern schon einige male gemacht. Mit erfolg !

Bei diesen beiden Feldern ist irgendwie der Hund drin.

[koehlerbv]

Klar, daran hätte ich selber denken müssen: Encrypt und Sign sind reserviert ;-)

Nimm doch einfach in der NotesDocument class die properties IsEncrypted und IsSigned - das sollte Dein Problem nun wirklich lösen.

Bernhard