发信人: dega.p()
整理人: kamkam(2002-05-01 23:52:56), 站内信件
|
在Lotus Notes4.6 中我们会使用到一个 NotesNewsLetter (新闻简报)类,通常 我们用 NotesNewsLetter 类显示搜索结果。比如:在全局搜索数据库中,搜索的 结果即以新闻简报的形式显示出来或发送给拥护。但是由于它是英文的界面,所 以很多情况下我们不能使用它。多么可惜啊!在 Domino R5 版本中有所改进,不 过仍然有一段英文 Search Results。所以本人对 NotesNewsLetter 类进行了定 制。希望能对各位有所帮助。
下面是一段使用 NotesNewsLetter 类的示例
Sub Click (Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase
Dim collection As NotesDocumentCollection
Set collection = db.AllDocuments
Dim newslt As NotesNewsLetter
Set newslt = New NotesNewsLetter( collection )
newslt.DoScore = True
newslt.DoSubject = True
newslt.SubjectItemName = "Title"
Dim doc As NotesDocument
Set doc = newslt.FormatMsgWithDocLinks( db )
Dim ws As New NotesUiWorkspace
Call ws.editdocument(False , doc ,True )
End Sub
定制了 MyNewsLetter 类后,你只需简单使用自己定制的 MyNewsLetter 替换掉 上面一段代码中的 NotesNewsLetter就可以了.别忘了首先要定义这个类啊.通常 只要在Declaration事件中定义就可以了。当然我的作法是把它放到一个Script Lib中定义。
==================================
怎么定义自己的类?
具体内容请见本人主页,最新消息.99.7.29
http://dingxiang.163.net
-- :◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
: ◇◇◇◇◇◇◇◇◇◇◇◇◇
: 总是想灌水*#$@&%!~
: ◇◇◇◇◇◇◇◇◇◇◇◇◇
:◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.96.167.50]
|
|