Domino 9 und frühere Versionen > ND6: Entwicklung

Text im Subject anhängen

(1/1)

akascha:
Hallo Zusammen

Ich muss beim versenden eines Confidential oder Stricktly Confidential Email im Subject einen Text anhängen.

Ich habe im QuerySave folgendes Script eingeben:


If source.Document.Classification(0) ="2" Or source.Document.Classification(0) ="3"  Then
   
Call source.FieldSetText("Subject", source.FieldGetText("Subject") & " " & "[Confidential]")
      
End If
   
   
Call source.FieldSetText("useApplet", "True")
Call cMemoObject.QuerySave(Continue)

Dies funktioniert einwandfrei. Wenn ich jedoch das Memo als Entwurf speichere hängt es mir im Subject 2x [Confidential] nach meinem Betreff.

Hat jemand eine Idee wie man dass umgehen kann?

Danke und Gruss

Akascha

m3:
Indem Du überprüfst, ob der Text "[Confidential]" bereits im Subject vorkommt?

akascha:
Danke hab's gelöscht.

If source.Document.Classification(0) ="2" Or source.Document.Classification(0) ="3"  Then
      
If Instr ( 1,  Subject , StrConf ) > 0 Then
'do nothing
Else
Call source.FieldSetText("Subject", source.FieldGetText("Subject") & " " & "[Confidential]")
End If
End If
   
Call source.FieldSetText("useApplet", "True")
Call cMemoObject.QuerySave(Continue)

Navigation

[0] Themen-Index