Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: akascha am 21.03.06 - 15:49:25

Titel: Text im Subject anhängen
Beitrag von: akascha am 21.03.06 - 15:49:25

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

Titel: Re: Text im Subject anhängen
Beitrag von: m3 am 21.03.06 - 15:51:52

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

Titel: Re: Text im Subject anhängen
Beitrag von: akascha am 21.03.06 - 16:45:30

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)