标签: lotusscript

我在Agent中编写了lotusscript代码,我需要通过单击Xpage中的按钮来运行代理.

我怎么能实现？

提前致谢

Lotus Notes具有"版本控制"功能.您可以将其设置为在用户需要单击File->New->Version以创建新版本的模式下工作.我想在表单上的按钮中使用该功能.

有没有办法(使用LotusScript,, Java或@Formula)从同一个表单创建一个新的"版本"(除了创建一个文档并移动所有字段)？

谢谢.

我已经搜遍了所有关于这个领域的信息.我有一些电子邮件是由我的某个应用程序生成的,每次您尝试打开它们时都会发生故障.如果我将其中一封电子邮件的文档属性与普通电子邮件进行比较,我会发现其中有很多字段:$$$ FormScript_0,$$$ FormScript,$$ FormScript_0,$$ FormScript等.

任何人都知道为什么会生成这些字段以及它们的用途是什么 只是试图将它们排除为崩溃的Notes的原因.

MJ

编辑操作按钮属性时，它允许@if 语句触发/翻转两个选择（锁定/解锁）。即@If(enlock=1;"Unlock";"Lock")用于操作按钮的“标签”。在 Action 属性的底部，图标可以是 None、Notes 或 Custom。当我选择自定义时，我希望 @if 使用锁定/未锁定的笔记图标。（分别为actn084.gif 和actn085.gif）或数字#62（锁定）和#（我不知道/找不到，解锁图标的#）。我已经尝试过带有图标编号的公式，例如在视图中，视图列的“显示为图标”。使用@if，我在本地和服务器副本上尝试了 gif，但没有给出任何结果。请参阅下面的示例图像。

图片示例：http : //i.stack.imgur.com/UBac3.png

我有一个我想重复使用的列表,但我无法弄清楚如何清除它以前的条目.

dim x list as string, i as integer
for i = 1 to 4
 x("a"+cstr(i)) = "blue"+cstr(i)
 x("b" +cstr(i)) = "green"+cstr(i)

  <do some stuff>
  <Before I loop back around, I want to clear 'x' so it does not contain the previous entries>
next

我在名为“fin_Paiement”的表单上有一个字段。我想要做的是：字段值只接受数字和点，并用点替换任何其他字符。我用替换函数为字母值做了它，但它不起作用。我试过这个：

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
doc.fin_Paiement = Replace(doc.fin_Paiement_Montant(0), "*[a-z,A-Z]*", ".")

我将感谢您的帮助！谢谢

在莲花我有一个订单文件的视图.我正在构建一个代理来搜索在过去25分钟内修改的所有订单.

为此我做了以下代码:

strFormule = "Form=""Order"" & @Modified >=  @Adjust(@Today;0;0;0;0;-25;0) & Deleted !=""J"""

Set ndcOrder = currentDB.Search( strFormule, Nothing, 0 )
If ndcOrder.Count <> 0 Then
Set doc = ndcOrder.GetFirstDocument
While Not doc Is Nothing

因此,如果它是11.00那么它需要接受今天从10.35修改的订单

但是在调试器中我也得到了2小时前修改过的订单.

这怎么可能？

我是 LotusScript 的初学者，我的代理中出现以下错误：

我的目标是能够使用以下代码连接到服务器：

Option Public
Option Declare    

Sub Initialize
    Dim myServer As String
    Dim myMailfile As String
    myServer = "server"
    myMailfile = "mailfile"

    Dim filePath As String
    Dim intErgebnis As Integer
    Dim objNotes As Object
    Dim LNdb As Object
    Dim LNView As Object
    Dim LNDoc As Object
    Dim LNItem As Object
    Dim strSubject As String
    Dim LNWorkspace As Object
    Dim LNAttachment As Variant
    intErgebnis = 0
    Set objNotes = GetObject("", "Notes.NotesSession")
    Set LNdb = objNotes.GETDATABASE(myServer, myMailfile)
    Set LNWorkspace = …

我的表单中有一个嵌入式View,它在嵌入式视图中有一堆代理.

但是,当我在嵌入视图中选择行(文档)并运行代理(例如"执行多配置文件更新")时,它确实有效,但它不会对所选文档进行任何更改.就像莲花脚本中的提示一样,代理可以正常工作并弹出,但不会进行更新.

当从视图外部运行时,它工作正常,因此出于某种原因它不能从嵌入式视图工作是我的感觉.

视图中的代理是使用公式语言代码的Action @Command([RunAgent];"updatePeople")

是updatePeople是莲花脚本代理.

任何想法或建议的家伙？

有没有办法在LotusScript中实现关联数组？
如果是,请发布一个小的演示代码.
非常感谢!