Changing the type and font size. help!

hcl-bot · February 5, 2007, 2:17am

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

hcl-bot · February 5, 2007, 4:12am

Subject: Changing the type and font size. help!!!

we do it like such:session.ConvertMIME = False ’ Do not convert MIME to rich text

Dim body As NotesMIMEEntity

Dim stream As NotesStream

Set body = memo.CreateMIMEEntity

Set stream = s.CreateStream

’ Create the memo style

Call stream.WriteText(“”, EOL_PLATFORM)

Call stream.WriteText(“body, p, table {font-family: Arial, Helvetica, sans-serif; font-size: 0.8em;}”, EOL_PLATFORM)

Call stream.WriteText(“.parameter { font-weight: bold; }”, EOL_PLATFORM)

Call stream.WriteText(“.message {color: black; }”, EOL_PLATFORM)

Call stream.WriteText(“table {border: 0px; }”, EOL_PLATFORM)

Call stream.WriteText(“table td {font-family: Arial, Helvetica, sans-serif; font-size: 0.8em;}”, EOL_PLATFORM)

Call stream.WriteText(“”, EOL_PLATFORM)

Call stream.WriteText({

} + strStartMessage + {

})

Call stream.WriteText({

} ,EOL_PLATFORM)

Call stream.WriteText({

} ,EOL_PLATFORM)

Call stream.WriteText({

} ,EOL_PLATFORM)

Call stream.WriteText({

} ,EOL_PLATFORM)

Call stream.WriteText({

} ,EOL_PLATFORM)

Call stream.WriteText({

} ,EOL_PLATFORM)

Call stream.WriteText({

} ,EOL_PLATFORM)

Call stream.WriteText({

Policy	} + doc.Policy(0) + {
Underwriter	} + strName + {
Country of Origin	} +doc.txtFullCountryOrigin(0) + {
Direct / Reinsurance	} + strDirIns + {
Insured	} +doc.Assured(0) + {
Justification	} + strJust + {

} ,EOL_PLATFORM)

Call stream.WriteText({

} + strMessageLink + {

})

Call stream.WriteText({

} + strEndMessage + {

})

Call body.SetContentFromText (stream, “text/html;charset=UTF-8”, ENC_IDENTITY_7BIT)

session.ConvertMIME = True ’ Restore conversion

hcl-bot · February 5, 2007, 5:08am

Subject: RE: Changing the type and font size. help!!!

I have inserted this code into Querysend in Memo form and when you send a mail it says "Object variable not set"Thanks

hcl-bot · February 5, 2007, 6:44am

Subject: RE: Changing the type and font size. help!!!

The code that has been posted is an example of how it can be done and is not meant to be used as a copy and paste into your existing code.

I replied to your previous post about the same issue suggesting the notesrichtextstyle class and you replied by asking for the code to be written for you.

http://www-10.lotus.com/ldd/nd6forum.nsf/DateAllThreadedweb/cfac345bfb149a4d85257276003226ab?OpenDocument

This is not what the forum is for. You need to investigate the suggestions, try to write the code yourself and then if you are still having problems post your code with a description of the problem. People will then be happy to help.

hcl-bot · February 5, 2007, 9:17am

Subject: RE: Changing the type and font size. help!!!

I posted that code as an example. You will see pieces of code in there that relate to MY application, ie Call stream.WriteText({Policy} + doc.Policy(0) + {} ,EOL_PLATFORM)

do.Policy(0) is a field on my form. You should be inserting your own fields/content here