Home
HCL Domino Designer Basic User Guide and Reference
Basic product usage information and programming language reference information.
LotusScript/COM/OLE Classes
LotusScript® Classes A-Z
This documentation lists each class, property, and method in the Domino® class library. Each class is followed by an alphabetical listing of the properties for that class and an alphabetical listing of the methods for that class. To find the property or method you want, turn to the class to which the property or method belongs.
NotesRichTextStyle (LotusScript®)
Represents rich text attributes.
StrikeThrough (NotesRichTextStyle - LotusScript®)
Read-write. Strikethrough rich text attribute.
Examples: StrikeThrough property
This example builds a rich text item and sets styles so that part of the text is bold and another part of the text is struck through.

Examples: StrikeThrough property

This example builds a rich text item and sets styles so that part of the text is bold and another part of the text is struck through.

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 ")
  richStyle.StrikeThrough = True
  Call richText.AppendStyle(richStyle)
  Call richText.AppendText("2:00")
  Call doc.Save(True, False)
End Sub