以下是作轉譯的代理程式,要放在 WebQuerySave 時執行。
Sub Initialize
Dim session As New NotesSession
Dim doc As NotesDocument
Dim bodyRT As NotesRichTextItem
Dim htmlSTR As String
Dim PassThruHtmlStyle As NotesRichTextStyle
'取出傳回的 HTML 原始碼
Set doc = session.DocumentContext
Set bodyRT = doc.GetFirstItem( "Body" )
If ( bodyRT.Type = RICHTEXT ) Then
htmlStr = bodyRT.GetUnformattedText
'取除現有的 Body 欄位後,先移除再新增一個具有 Pass-Thru HTML 屬性的 Body 欄位
Call doc.RemoveItem( "Body" )
Set bodyRT = New NotesRichTextItem( doc, "Body" )
Set PassThruHtmlStyle = session.CreateRichTextStyle
PassThruHtmlStyle.PassThruHTML = True
Call bodyRT.AppendStyle( PassThruHtmlStyle )
Call bodyRT.AppendText( htmlStr )
End If
End Sub
問題還是沒解決嗎 ?? 這裡有更多的 Ubuntu 相關教學可以參考哩 ...
買本阿舍寫的電子書帶走 - Ubuntu 指令新手馬上會用到的 35 個技法
沒有留言 :
張貼留言