当前位置:编程学习 > 网站相关 >>

如何用代理把附件插入表单

我想把收到邮件中的附件插入到工作流第一步的附件中
但是不知道代理怎么写 --------------------编程问答-------------------- 基本原理是:把邮件里那个附件拆分到本地临时目录(路径记录到临时变量里),然后再嵌入到你的工作流文档,具体涉及的类是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
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,