Lotus notes Lotus Notes-运行公式后自动删除按钮

我需要在LotusNotesMail中创建一个按钮，该按钮将插入文本，然后该按钮将从消息中删除

在按钮中，我有：

res := @Prompt([OkCancelList]; "Is it OK?"; "Select result"; " ";"OK":"Failed":"");
@If(res ="OK"; 
    @Command([EditGotoField]; "Body") + @Command([EditInsertText]; "Everything is fine); 
    @Command([EditGotoField]; "Body") + @Command([EditInsertText]; "Not so good mate"));

这部分工作正常，但我不确定单击后如何删除按钮。通常在公式中使用

@Command（[EditClear]）

时起作用，但在这种情况下不起作用

我想我需要使用正确的按钮标识符再次使用GoToField，然后运行EditClear，但我不知道在哪里可以找到它，或者是否有其他方法可以找到它。。。想法

---

谢谢。

假设您在字段正文中有按钮，没有其他需要保留的内容
然后将代码更改为：

@Command([EditGotoField]; "Body");
@Command([EditSelectAll]);
res := @Prompt([OkCancelList]; "Is it OK?"; "Select result"; " ";"OK":"Failed":"");
@If(res ="OK"; 
     @Command([EditInsertText]; "Everything is fine"); 
    @Command([EditInsertText]; "Not so good mate"));

它选择正文的内容（包括按钮）并用新文本替换。

假设您的文档处于（或可以进入）编辑模式，您仍然可以使用该按钮，但在按下MySpecialButton的公式时，该按钮将隐藏在自己的段落（或表格单元格）中=“”，然后包括该行

FIELD MySpecialButtonPressed := @Now;

在按钮代码中

---

（编辑：将测试从

=1

更改为

！=”

，然后将设置值从

1

更改为

@Now

，因为Notes不存储布尔值。除非您发送数百万个布尔值，否则使用日期而不是数字的成本低于在需要时获得更具体信息的好处。）

从理论上讲，这应该是可行的，SelectAll确实选择了消息中的所有内容，但是只有文本插入到开头，按钮保留在那里，没有任何内容被覆盖。它不仅在理论上有效：）-你用我的代码测试过吗？我创建了一封新邮件，在Body字段中创建了一个带有此代码的按钮，添加了一些其他文本并单击了按钮。它只保留按钮插入的文本，没有其他内容。是的，你是对的，我可能在某个地方犯了错误，它现在起作用了，谢谢。有没有办法只覆盖/删除按钮？或者如何仅选择正文中指定数量的行？仅使用sendkeys（）。但是LotusScript中的sendkeys（）实现不起作用。您必须使用Windows的sendkey（）。但是，这是一种痛苦，在你的情况下可能不值得付出努力。