表单A:
有个域:RunStr,文本
WEBQUERYSAVE输入代理公式:@Command([ToolsRunMacro]; "(MyAMgr001)");
提交按钮下代码:
FIELD RunStr:="表单保存";
@Command([RefreshHideFormulas]);
@Command([FileSave]);
@Command([FileCloseWindow])
代理MyAMgr001:
名称:MyAMgr001;
所有者:共享
运行时间:列表选择运行;
指定代理操作的文档:运行一次/或所有文档
内容:
Sub Initialize
Dim Session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = Session.CurrentDatabase
Set doc = Session.DocumentContext