精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● 群件>>开发>>脚本LotusScript>>NotesNewsLetter (新闻简报)类

主题:NotesNewsLetter (新闻简报)类
发信人: 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]

[关闭][返回]