作成者	カテゴリ	返答の対象		公開
SKI 01/28/1998 10:45 AM		リッチテキストをビューに表示したい

$$QuerySaveAgentフィールドに下記のようなエージェントを入れればリッチテキストフィールドの内容がテキストに変換されますので、その後、ビューに表示する際に@left等を使って文字数を指定すれば大丈夫だと思います

Dim session As New NotesSession
Dim doc As notesdocument
Dim rtitem As Variant
Dim plainText As String

Set doc = session.DocumentContext
Set rtitem = doc.GetFirstItem( "リッチテキストフィールド名" )

If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetFormattedText( True, 0 )
End If
doc.ビューに表示したいフィールド名 = plainText