P
PavelT100
Есть doc as NotesDocument и есть код.
И работает он почти хорошо. Но когда приходит письмо-документ присланный из ОutLook, например, у которого, например, текст поля Body выделен цветом, красным, например, то в резудьтате работы этого кода цвет пропадает и становится чёрным, что очень досаждает авторитетных пользователей.
Везде где смотрел обсуждение работы AppendRTItem приводились примерно такие приёмы работы с кодом как у меня. Но нигде не встречал описание таких проблем.
Может что-нибудь подскажите ?
Код:
Dim rtitem As NotesRichTextItem
Set rtitem = New NotesRichTextItem(doc, "Body1" )
Call rtitem.AppendText( "PRUVET MIR !!!" )
Call rtitem.AddNewLine( 1 )
Dim rtitemOld As NotesRichTextItem
Set rtitemOld=doc.GetFirstItem("Body")
Call rtitem.AppendRTItem(rtitemOld)
Call rtitemOld.Remove()
Call doc.CopyItem(rtitem, "Body")
Call rtitem.Remove()
doc.Save(True, False )
И работает он почти хорошо. Но когда приходит письмо-документ присланный из ОutLook, например, у которого, например, текст поля Body выделен цветом, красным, например, то в резудьтате работы этого кода цвет пропадает и становится чёрным, что очень досаждает авторитетных пользователей.
Везде где смотрел обсуждение работы AppendRTItem приводились примерно такие приёмы работы с кодом как у меня. Но нигде не встречал описание таких проблем.
Может что-нибудь подскажите ?