Forum: สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Note Client) |
Tags1: | Created on Aug 12, 2008, 11:11 PM by 9notes/9Notes|Topic Responses: 10 |
&action=openDocument&documentId=237A |
อันนี้เป็นอีกตัวอย่างที่ใช้ NotesRichtext Class ครับ
[CODE]
Set s = New NotesSession
Set mailDoc = New NotesDocument(db)
Set rtitem = New NotesRichTextItem(mailDoc,"Body")
Set richStyle = s.CreateRichTextStyle
richStyle.PassThruHTML = True
Call rtitem.AppendStyle(richStyle)
Call rtitem.AppendText ("")
Call rtitem.AppendText ("")
Call rtitem.AppendText ("")
docLink = "http://" & DBServer & "/" & DBPath &"/0/" & doc.UniversalID & "?OpenDocument "
Call rtitem.AppendText ("" ")
Call rtitem.AppendText ("")
Call rtitem.AppendText ("")
[/CODE]
:yellow_cool.gif: |
|