あるXpagesで作成したページがあり、rtHonbunというフィールドとバインドされたリッチテキストコントロールがあります。

そこで、入力し保存した内容をメールで指定したユーザーに送付するという仕組みを作っております。（エージェント）

 

現在、下記のようにエージェントを書いておりますが、リッチテキストコントロール側でスタイル（色・文字の大きさ等）を変更しても

送付されたメールには反映されておりません。

Set eventRTitem  = eventDoc.GetFirstItem("rtHonbun")	'設定文書のBody
Call doc.CopyItem( eventRTitem, "Body" )	'メール文書のBodyにコピー
Set Rtitem = doc.GetFirstItem("Body")				'メール文書のBodyをItem化
'添付処理
If eventDoc.filePath(0) <> "" Then
	Set object = Rtitem.EmbedObject( EMBED_ATTACHMENT, "", eventDoc.filePath(0), "" )	
End If

どなたかお分かりになる方はいらっしゃいますか？？