Changing the type and font size?¿?

HCL Domino Domino Forum
1

Hello I have a code to add a discalimer in all mails. I want the diclaimer have a different type and font size than body. How can I change this?. This is the code:

	REM {Start - línea añadidas para 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,"Este mensaje está dirigido") = 0 And Instr(BdyText,"El correo electrónico vía Internet") =0 Then

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

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

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

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

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

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

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

		Call Source.FieldAppendText ("Body","Este mensaje está dirigido únicamente a su destinatario. Contiene información CONFIDENCIAL sometida a secreto profesional ")

		Call Source.FieldAppendText("Body","o cuya divulgación esta prohibida por la ley. Si ha recibido este mensaje por error, ")

		Call Source.FieldAppendText("Body","debe saber que su lectura, copia y uso no están autorizados.  ")

		Call Source.FieldAppendText("Body","Le rogamos que nos lo comunique inmediatamente por esta misma vía y proceda a su destrucción. ")

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

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

		Call Source.FieldAppendText("Body","El correo electrónico vía Internet no permite asegurar la confidencialidad de los mensajes que se transmiten ni su integridad o correcta recepción. La Fundación Tripartita para la Formación en el Empleo no asume ")

		Call Source.FieldAppendText("Body","responsabilidad por estas circunstancias y se reserva el derecho  a  ejercer  las  acciones  legales que le correspondan contra ")

		Call Source.FieldAppendText("Body","todo tercero  que acceda de forma ilegítima al contenido de este mensaje y al de los ficheros contenidos en el mismo. ")

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

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

		Call Source.FieldAppendText("Body","Si el destinatario de este mensaje no consintiera la utilización del correo electrónico vía Internet ")

		Call Source.FieldAppendText("Body","y la grabación de los mensajes, rogamos lo ponga en nuestro conocimiento de forma inmediata.")

	End If

Else 

	BdyText = Source.FieldGetText( "Body" )

	If Instr(BdyText,"Este mensaje está dirigido") = 0 And Instr(BdyText,"El correo electrónico vía Internet") =0 Then

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

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

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

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

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

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

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

		Call Source.FieldAppendText ("Body","Este mensaje está dirigido únicamente a su destinatario. Contiene información CONFIDENCIAL sometida a secreto profesional ")

		Call Source.FieldAppendText("Body","o cuya divulgación esta prohibida por la ley. Si ha recibido este mensaje por error, ")

		Call Source.FieldAppendText("Body","debe saber que su lectura, copia y uso no están autorizados.  ")

		Call Source.FieldAppendText("Body","Le rogamos que nos lo comunique inmediatamente por esta misma vía y proceda a su destrucción. ")

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

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

		Call Source.FieldAppendText("Body","El correo electrónico vía Internet no permite asegurar la confidencialidad de los mensajes que se transmiten ni su integridad o correcta recepción. La Fundación Tripartita para la Formación en el Empleo no asume ")

		Call Source.FieldAppendText("Body","responsabilidad por estas circunstancias y se reserva el derecho  a  ejercer  las  acciones  legales que le correspondan contra ")

		Call Source.FieldAppendText("Body","todo tercero  que acceda de forma ilegítima al contenido de este mensaje y al de los ficheros contenidos en el mismo. ")

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

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

		Call Source.FieldAppendText("Body","Si el destinatario de este mensaje no consintiera la utilización del correo electrónico vía Internet ")

		Call Source.FieldAppendText("Body","y la grabación de los mensajes, rogamos lo ponga en nuestro conocimiento de forma inmediata.")

	End If

	REM {End - línea añadidas para DISCLAIMER]; 

	

End If
2

Subject: Changing the type and font size?¿?

You can do this with the notesrichtextstyle class. There are examples in the designer help for this class.

3

Subject: RE: Changing the type and font size?¿?

Can you give an example into my code?

Thanks in advance