AppendText

[Irina]

подскажите, пожалуйста, как только одну строку выделить , если используется AppendText?
например , сделать жирный или другой цвет

Call item.AppendText("Текст")
Call item.AddNewLine( 2 )

пробую
Dim richStyle As NotesRichTextStyle
            Set richStyle = S.CreateRichTextStyle
             richStyle.NotesFont = FONT_ROMAN
             richStyle.FontSize = 12
             richStyle.Italic = False
            
        richStyle.NotesColor = COLOR_RED
        Call item.AppendStyle(richStyle)
        Call item.AppendText("")

но он не становится другим цветом

 

[ToxaRat]

сначала задаешь стиль в RT
потом пишешь текст
потом задаешь другой стиль
и опять пишеш текст

Call item.AppendStyle(richStyle)
Call item.AppendText("теперь текст")

 

[garrick]

сначала задаешь стиль в RT
потом пишешь текст
потом задаешь другой стиль
и опять пишеш текст

Call item.AppendStyle(richStyle)
Call item.AppendText("теперь текст")

Потом не забываешь вставить снова старый стиль, а то весь текст до конца будет с новым стилем.

 

[Irina]

все, разобралась! спасибо

 

[Irina]

а скажите, пожалуйста, для Call bodyitem.AppendText
можно ли как-то указать utf-8 формат? а то не весь текст корректно отображается .
используется для заполнения Body в письме ,которое формируется в форме

 

[Irina]

пробовала

Set body = doc.CreateMIMEEntity("Body")                   
                html = "<H1>Test</H1>"
                html = html & doc.Subject(0) & "<br>"
                
                j=j+1
                Set stream = session.CreateStream
                Call stream.WriteText(html)
                Call body.SetContentFromText(stream, {text/html; charset="UTF-8"}, ENC_IDENTITY_BINARY)

но пишет на Set body =doc.CreateMIMEEntity("Body") что уже есть .
а если эту строку убрать, то на
body.SetContentFromText(stream, {text/html; charset="UTF-8"}, ENC_IDENTITY_BINARY)
ругается