お世話になっております。
メールDBに、メール受信時に受信文書のリッチテキスト(本文=「Body」フィールド)を書き換えるメール受信エージェント処理を行っています。
(具体的には文書リンク、DBリンクをナビゲーターで拾い、リンクアイコンのすぐ横にURLリンクを文字列として追加しています。)
このように加工したメール文書を、Notesクライアントで開くと、本文が問題なく閲覧できますが、
XPagesのリッチテキストコントロールでは真っ白で何も表示されません。
このような現象または解決策をご存知のかたいらっしゃいませんでしょうか。
ちなみに現状組んでいるコードはざっくり以下の様な感じです。
---------------------------------------------------------------------------------------------------------------------------
dim rti As NotesRichTextItem
dim rtnav As NotesRichTextNavigator
Set rti = mailDoc.Getfirstitem("body")
Set rtnav = rti.CreateNavigator
If Not rtnav.FindFirstElement(RTELEM_TYPE_DOCLINK) Then
Exit Function
End If
Dim rtlink As NotesRichTextDocLink
If rtnav.FindFirstElement(RTELEM_TYPE_DOCLINK) Then
Do
Set rtlink = rtnav.GetElement
Dim link As String
link = "hogehoge"
Call rti.Begininsert(rtlink, True)
Call rti.Appendtext(" ( " & link & " )")
Call rti.Endinsert()
Loop While rtnav.FindNextElement(RTELEM_TYPE_DOCLINK)
Call mailDoc.Save(True, True, False)
End If
---------------------------------------------------------------------------------------------------------------------------
以上、よろしくお願いします。