Text im Subject anhängen

[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)