通过代理打开表单对不？

Sub Initialize
Dim session As New NotesSession
Dim view As NotesView
Dim doc As NotesDocument
Dim db As NotesDatabase
'Dim item As NotesItem
Set db=session.currentdatabase
Set view=db.getview("$Inbox")     '视图名称
'MessageBox("1")
Set doc=view.getfirstdocument
Set item=doc.getfirstitem("body")
Print "[oa/ctthlj/system.nsf/mainform?openform&filetype=收文&flowname=开始]"

'Call("tou","")
'MessageBox(item)
End Sub 表单 session as --------------------编程问答-------------------- 想把视图的第一项附件插入指定表单附件
--------------------编程问答-------------------- 你是想打开某个表单时，将特定的附件插入到该表单中吗？
打开你要插入附件的表单，WebQueryOpen 中 执行一个代理
@If(@IsNewDoc;@Command([ToolsRunMacro];"AG_GetAtt"))
我认为你应该是新表单才加载附件，所以加了个isnewdoc的判断，如果不是，请自己去掉
代理代码如下

Sub Initialize

        On Error Goto errhandle

	Dim session As New NotesSession

	Dim db As NotesDatabase

	Dim view As NotesView

	Dim cdoc As NotesDocument

	Dim doc As NotesDocument



        Set cdoc=session.DocumentContext   '定义当前文档

        Set db=session.currentdatabase

        Set view=db.getview("$Inbox")     '视图名称

        Set doc=view.getfirstdocument 

        att = Evaluate("@AttachmentNames",doc) '获取视图第一个文档中的附件

	cdoc.F_AttNames = att   '定义当前文档附件 （F_AttNames 为当前文档附件的域名，根据你自己的设计更改）

Exit Sub 

errhandle:          				    '错误处理

	print "代理出错：<br>"+Error()+"（第"+Cstr(Erl())+"行）"

End Sub 

        

补充：企业软件 ,  Lotus