Location : Cleveland, OH
"Show-n-Tell Thursday" is a tough assignment. As a Domino Admin, I don't usually have really "cool apps" or code. So, as I continue to slog through my stuff, I will provide you with a tip that I have used many times. That is, how to add a disclaimer to outbound mail from a Notes client.
If you are using iNotes, you can make the change to the Configuration Document and be done with it. But if you are using Notes (pre-R7), this doesn't work so well. Okay, doesn't work at all. To that end, this is my tip of the week, lifted from developerWorks:Lotus and the author "michael b."
This code will go in the Mail template, CoreEMailClasses of the Script Library, Function QuerySaveExtension. Add it after QuerySaveExtenstion="Yes" and before "End Function"
This LotusScript was converted to HTML using the ls2html routine,
provided by Julian Robichaux at nsftools.com.
Link: developerWorks:Lotus Disclaimer working-R6
If you are using iNotes, you can make the change to the Configuration Document and be done with it. But if you are using Notes (pre-R7), this doesn't work so well. Okay, doesn't work at all. To that end, this is my tip of the week, lifted from developerWorks:Lotus and the author "michael b."
This code will go in the Mail template, CoreEMailClasses of the Script Library, Function QuerySaveExtension. Add it after QuerySaveExtenstion="Yes" 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,"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 blah blah blah") Call Source.FieldAppendText("Body","confidential or privileged information blah blah blah") Call Source.FieldAppendText("Body","the person responsible for blah blah blah") Call Source.FieldAppendText("Body","blah blah blah") Call Source.FieldAppendText("Body","If you contact us by email ...") Call Source.FieldAppendText("Body","blah blah blah") Call Source.FieldAppendText("Body","blah blah blah") Call Source.FieldAppendText("Body","get the idea?") Call Source.FieldAppendText("Body","last line! blah blah blah.") End If End If REM {End - added following lines for DISCLAIMER];
provided by Julian Robichaux at nsftools.com.
Link: developerWorks:Lotus Disclaimer working-R6
Technorati tag: Show-n-Tell Thursday
Comment posted by John Willemse02/20/2006 05:29:04 PM
Homepage: http://www.badkey.com
Gregg thanks for the information, I have used it.
Regards,
John
Powered By : Domino
BlogSphere V1.3.1
Join The WebLog Revolution at BlogSphere.net