OT: Disclaimer in Mail-DB

Hi,

I've a problem :

I have to add a Disclaimer to the Notes-Mail-DBs ( Template ) ...
... now I've found a working script, but if I will "reply with history" 
the disclaimer will be added, that's correct, but
if the disclaimer is already in the mail , the disclaimer still will be 
added ..
.. is there a possibility to check if the disclaimer is present, or not, 
and if not to add the disclaimer ?


Hope anybody can help me ... need this afap today ... 


OR 

Does anybody have a ready skript which will check if the disclaimer is 
added or not ?
Would be very nice if I could get it ...

-- -- -- -- -- -- -- -- --

Here the current script : 

In the Memo-Mask in "Querysave" : 

'  Disclaimer
 
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim text As String
 
Set uidoc = ws.currentdocument
Set doc = uidoc.document
 
Const Test1$ = "@Text(@Contains(@Text(EnterSendTo) ; ""@"" ))"
Const Test2$ = "@Text(@Contains(@Text(EnterSendTo) ; ""."" ))"
Const Test3$ = "@Text(@Contains(@Text(EnterCopyTo) ; ""@"" ))"
Const Test4$ = "@Text(@Contains(@Text(EnterCopyTo) ; ""."" ))"
Const Test5$ = "@Text(@Contains(@Text(tmpEnterCopyTo) ; ""@"" ))"
Const Test6$ = "@Text(@Contains(@Text(tmpEnterCopyTo) ; ""."" ))"
Const Test7$ = "@Text(@Contains(@Text(EnterBlindCopyTo) ; ""@"" ))"
Const Test8$ = "@Text(@Contains(@Text(EnterBlindCopyTo) ; ""."" ))"
 
result1 = Evaluate(Test1$, doc)
result2 = Evaluate(Test2$, doc)
result3 = Evaluate(Test3$, doc)
result4 = Evaluate(Test4$, doc)
result5 = Evaluate(Test5$, doc)
result6 = Evaluate(Test6$, doc)
result7 = Evaluate(Test7$, doc)
result8 = Evaluate(Test8$, doc)
 
If result1(0) = "1" And result2(0) = "1" Or result3(0) = "1" And 
result4(0) = "1"Or _
result5(0) = "1" And result6(0) = "1"Or result7(0) = "1" And result8(0) = 
"1" Then 
 
text = uidoc.FieldGetText("ExtraText")
Call uidoc.FieldAppendText ("Body", text)
End If

You have to add a field called :  ExtraText   which contains the 
disclaimer-text ...


Mit freundlichen Grüßen
Bruno Leonhardt

CLP Domino R5 Systemadministrator

-----------
AnalyTek Systemhaus
Hospital Str. 2a
D-65589 Hadamar

Besuchen Sie uns im Internet unter : http://www.analytek.de



-- 
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]