视图分页和访问待办事宜表单
大家好，在notes client端视图怎么分页呢？我知道在WEB程序中可以用公式@dbcommand("domino","viewpreviouspage")和@dbcommand("domino","viewnextpage")，嵌入视图的时候也可以进行设置，但是在notes client端怎样进行分页呢？
如何访问待办事宜表单：
我新建一个文档后，想将这个文档发送到NOTES的待办事宜中，而不是将其发送到NOTES邮件列表中，该怎样做呢？下面的代理只能将邮件发送到NOTES邮箱中，哪位朋友帮忙指点一下吧。
代理如下：
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim DocumentId As String
Dim ws As New NotesUIWorkspace
Dim uidoc As notesuidocument
Dim doc,doc2,doc3 As notesdocument
Dim rtitem As NotesRichTextItem
Dim item,item2 As notesitem
Dim view As NotesView
Dim nam As NotesName
Dim dc As NotesDocumentCollection
Set uidoc = ws.currentdocument
Set doc = uidoc.document
Set item = doc.getfirstitem("contract_conid")
'生成待办任务
DocumentId = doc.UniversalId
Set db = session.CurrentDatabase
Set db=session.GetDatabase(db.server,"wf\\工作流.nsf")
If Not db.IsOpen Then
Messagebox "数据库“wf\工作流.nsf”不存在",, "数据库不存在"
Else
If Not doc.isnewnote Then
Set dc = db.AllDocuments
Set doc2 = dc.GetFirstDocument
While Not(doc2 Is Nothing)
Set item2 = doc2.getfirstitem("DocLink")
If Not(item2 Is Nothing) Then
If item2.text=DocumentId Then
Call doc2.remove(True)
End If
End If
Set doc2 = dc.GetNextDocument(doc2)
Wend
End If
'tasks是自己建的表单，用于记录所发送的邮件信息
Set doc2 = New NotesDocument( db )
doc2.Form = "Tasks"
Call doc2.ComputeWithForm( False, False)
doc2.FromUser=session.CommonUserName
doc2.ToUser="商务"
doc2.Subject="合同"+item.text+"正在等待订货中"
doc2.DocLink=DocumentId
doc2.Completed=0
Set rtitem = doc2.GetFirstItem( "Body" )
Call rtitem.AppendDocLink(doc,"详情请点击这里")
doc2.StartDate=Cdat(Inputbox$("请输入订货开始日期:YYYY-MM-DD"))
doc2.EndDate=Cdat(Inputbox$("请输入订货截止日期:YYYY-MM-DD"))
doc2.Privilege=Inputbox$("请输入任务优先级，1为最高，2为普通，3为最低")
Call doc2.save(True,False)
End If
'向用户发送“待办事宜”邮件
Set db=session.CurrentDatabase
Set db=session.GetDatabase(db.server,"names.nsf")
Set view = db.GetView( "Groups" )
Set doc3 = view.GetFirstDocument
doc.Form = "Task"
doc.Subject = "合同"+item.text+"正在等待订货中"
doc.StartDate=doc2.startdate(0)
doc.DueDate=doc2.enddate(0)
Set rtitem = doc.CreateRichTextItem( "Body" )
Call rtitem.AppendDocLink(doc,"详情请点击这里","点击查看合同")
While Not(doc3 Is Nothing)
Set item = doc3.getfirstitem("ListName")
If item.text="商务" Then
Forall subject In doc3.GetItemValue("Members")
Set nam = New NotesName(subject)
doc.SendTo=nam.Common
Call doc.Send( True)
End Forall
End If
Set doc3 = view.GetNextDocument(doc3)
Wend
End Sub
问题点数：50、回复次数：9Top
1 楼ylj718（青年在线）回复于 2005-06-04 16:01:47 得分 0
哪位朋友给看看吧，我都做好几天了,实在是做不出来，帮忙!Top
2 楼ylj718（青年在线）回复于 2005-06-06 09:11:52 得分 0
没有人会吗？Top
3 楼yunfengyang（）回复于 2005-06-06 13:28:21 得分 20
client应该不能分页，也没这必要呀。
直接发到待办事宜等于用户收到邮件后再从($Inbox)文件夹移出去。只要在邮件模版中写个代理，运行时间：新邮件到达后，判断一下把这个文档从($Inbox)文件夹移出就行了。Top
4 楼sharkclark（大鲨鱼）回复于 2005-06-06 16:45:19 得分 10
就按yunfengyang()说的做，写一个邮件到达后运行的定时代理就行了。Top
5 楼ylj718（青年在线）回复于 2005-06-06 17:34:37 得分 0
当我在视图中有大量的记录时，我就需要在client瑞进行分页啊；
邮件从直接从$inbox()里移出就可以了吗？是不是要指定要移出到待办事宜列表中去啊？刚接触邮件，不太明白！请多指教Top
6 楼yunfengyang（）回复于 2005-06-06 19:08:37 得分 10
在client端分页好像没有直接的办法。($Inbox)是文件夹，待办事宜列表是包含form域为tasks的视图，所以只要移出文件夹就行了。Top
7 楼ylj718（青年在线）回复于 2005-06-07 17:08:30 得分 0
我到是可以将邮件从（$inbox）文件夹中移出，用的是公式：@command(removefromfolder),但是却只移到了（$trash）文件中，可是待办事宜中还是没有任何邮件啊。Top
8 楼ylj718（青年在线）回复于 2005-06-08 11:29:08 得分 0
哪位朋友能告诉我，怎么把邮件转移到待办事宜中，并能够显示出来啊。谢谢Top
9 楼whang1980（藤藤菜）回复于 2005-06-10 09:55:53 得分 10
关注Top
