Disclaimer Working - R6

HCL Domino Domino Forum
1

In the CoreEmailClasses - Script Library (Function QuerySaveExtension)

Added the following code after “QuerySaveExtension = True” and before “End Function.”

REM {Start - added following lines for DISCLAIMER];

Call Source.Refresh  

Dim session As New NotesSession

Dim InternetMail, SendTo, CopyTo, BdyText As Variant

InternetMail=False



SendTo=Source.FieldGetText("SendTo")

If Instr(SendTo,".") >0 And Instr(SendTo,"@") Then InternetMail=True

CopyTo=Source.FieldGetText("CopyTo")

If Instr(CopyTo,".") >0 And Instr(CopyTo,"@") Then InternetMail=True



If InternetMail Then

	BdyText = Source.FieldGetText( "Body" )

	If Instr(BdyText,"This email is intended") = 0 And Instr(BdyText,"However we accept no") =0 Then

		Call Source.FieldAppendText ("Body",Chr(10))

		Call Source.FieldAppendText ("Body","-- ")

		Call Source.FieldAppendText ("Body",Chr(10))

		Call Source.FieldAppendText ("Body","This email is intended only for the addressee named above and may contain ")

		Call Source.FieldAppendText("Body","confidential or privileged information. If you are not the named addressee or ")

		Call Source.FieldAppendText("Body","the person responsible for delivering the message to the named addressee, ")

		Call Source.FieldAppendText("Body","please be kind enough to telephone us immediately. The contents should not ")

		Call Source.FieldAppendText("Body","be disclosed to anyone nor copies taken. If you contact us by email, we may ")

		Call Source.FieldAppendText("Body","store your name and address to facilitate communication. We take reasonable ")

		Call Source.FieldAppendText("Body","precautions to ensure that our emails are virus free. However we accept no ")

		Call Source.FieldAppendText("Body","responsibility for any virus transmitted by us and recommend that you subject ")

		Call Source.FieldAppendText("Body","any incoming email to your own virus checking procedures.")

		

	End If

End If

REM {End - added following lines for DISCLAIMER];
2

Subject: Disclaimer Working - R6

this doesnt work in R6.5.1

3

Subject: RE: Disclaimer Working - R6

Under 6.5.3 I’ve tried this solution and in most respects it’s what we wanted. I have found what may be a problem though, linked to the creation of Personal Stationery.

With this mod in place, creating Personal Stationery doesn’t work. It won’t allow the stationery to be saved nor will it allow the stationery page to be closed or even the Notes client to be normally closed.

Taking the mod off and it all works again.

Don’t suppose anyone else using this solution has maybe picked this issue up and resolved it ?

Thanks. Oh and Merry Christmas !

4

Subject: Disclaimer Working - R6

Hi All,I need Help in this regards.Through this script i am able to insert Disclaimer in last of Mail body.

Might be possible that i can insert disclaimer below Signature in Reply with History Mail. Because when i am replying its appending below mail.

My requirement is to add disclaimer after my Signature,because when the user is going to Reply this mail Disclaimer is added after body.

I go through one idea but unable to expand it much.

If i am replying the mail Then reply content is gone under one section so if i can search section in the mail and its position then i can insert that disclaimer above that section containing the original mail…

Waiting for Reply

Regards,

Kam India