如何用代理把附件插入表单
我想把收到邮件中的附件插入到工作流第一步的附件中但是不知道代理怎么写 --------------------编程问答-------------------- 基本原理是:把邮件里那个附件拆分到本地临时目录(路径记录到临时变量里),然后再嵌入到你的工作流文档,具体涉及的类是NotesRichTextItem
不一定要用代理写的,当然你把上面的方法用到代理里也是可以的。 --------------------编程问答-------------------- 不用代理具体怎么做?
--------------------编程问答-------------------- 你是想打开某个表单时,将特定的附件插入到该表单中吗?
打开你要插入附件的表单,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