如何在不保存文档的情况下从 Xpages 运行 LotusScript 代理
How to run LotusScript agent from Xpages without saving document
是否可以从尚未保存的 Xpages 表单中 运行 一个 lotusscript 代理?我有 "xspFrmTest.xsp"
页面,lotusscript 代理名称 (wsAgent)
当我打开 /xspFrmTest.xsp?action?newDocument
然后用一个按钮我调用 Lotusscript 代理但据我所知我不能在没有保存文件的情况下调用代理?是否可以从新的 Xpages 文档(Xpages 表单)中调用它
只是想知道它的可能性。
此致
C.A.
更新
Dim rtitem As NotesRichTextItem
Set rtitem = doc.GetFirstItem("Body")
If (rtitem.Type = RICHTEXT ) Then
ForAll o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
sFilePath = "E:\AttachFolder\" + o.Name
Call o.ExtractFile(sFilePath)
End If
End ForAll
End If
我想在保存文档之前我可能无法使用或访问任何附件
是否可以从尚未保存的 Xpages 表单中 运行 一个 lotusscript 代理?我有 "xspFrmTest.xsp"
页面,lotusscript 代理名称 (wsAgent)
当我打开 /xspFrmTest.xsp?action?newDocument
然后用一个按钮我调用 Lotusscript 代理但据我所知我不能在没有保存文件的情况下调用代理?是否可以从新的 Xpages 文档(Xpages 表单)中调用它
只是想知道它的可能性。
此致
C.A.
更新
Dim rtitem As NotesRichTextItem
Set rtitem = doc.GetFirstItem("Body")
If (rtitem.Type = RICHTEXT ) Then
ForAll o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
sFilePath = "E:\AttachFolder\" + o.Name
Call o.ExtractFile(sFilePath)
End If
End ForAll
End If
我想在保存文档之前我可能无法使用或访问任何附件