Lotus Notes - Letras Negritas

   
Vista:

Letras Negritas

Publicado por CORNELIUS (1 intervención) el 27/03/2008 18:02:47
Mediante codigo lotus script, como se puede mostrar texto en negrita?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Letras Negritas

Publicado por Felipe (10 intervenciones) el 28/03/2008 17:19:26
Esto te puede servir.

This example builds a rich text item and sets styles so that part of the text is bold.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As New NotesDocument(db)
Call doc.AppendItemValue("From", session.UserName)
Call doc.AppendItemValue("Subject", _
"Meeting time changed")
Dim richStyle As NotesRichTextStyle
Set richStyle = session.CreateRichTextStyle
Dim richText As New NotesRichTextItem(doc, "Body")
Call richText.AppendText("The meeting is at ")
richStyle.Bold = True
Call richText.AppendStyle(richStyle)
Call richText.AppendText("3:00")
richStyle.Bold = False
Call richText.AppendStyle(richStyle)
Call richText.AppendText(" not 2:00")
Call doc.Save(True, False)
End Sub

Otro

Dim rtitem As NotesRichTextItem
Dim rtstyle As NotesRichTextStyle

Set db = session.CurrentDatabase
Set rtitem = doc.GetFirstItem("Remarks")
Set rtstyle = session.CreateRichTextStyle()

rtstyle.Bold = True
rtstyle.NotesFont = FONT_HELV
rtstyle.NotesColor = COLOR_BLACK

Call rtitem.AppendStyle(rtstyle)
Call rtitem.AppendText(Format(Now,"dd.mm.yyyy hh:nn") & ", " & session.CommonUserName & Chr(13))

rtstyle.Bold = False

Call rtitem.AppendStyle(rtstyle)
Call rtitem.AppendText(doc.NewRemark(0) & Chr(13) & Chr(13))

doc.NewRemark = ""

Call doc.Save(True,False,True)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Letras Negritas

Publicado por CORNELIUS (104 intervenciones) el 30/03/2008 16:10:09
Gracias pisha, ahora mismo lo pruebo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Letras Negritas

Publicado por gabriel (1 intervención) el 09/05/2009 20:24:50
gabriel
color de ojos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar